This recreation of the 1 978 Apple ][ Redbook is courtesy of Gerry Doire. 
gerrydoire@yahoo.ca for any comments or suggestions. 

Any donations for better software and hardware, what I have is old and slow, 
can be made to marketplace@seaside.ns.ca, Thanks! 



DIGITAL 
GRAPHICS 



iDonate 

PayPal 




Made with Mac OS X 



Apple II 

Reference 

Manual 

January 1978 








Apple II 

Reference 

Manual 

January 1978 



APPLE n 
Reference Manual 



January 1978 



APPLE Computer Inc. 
10260 Brandley Dr. 
Cupertino, CA 
95014 



APPLE H Reference Manual 
TABLE OF CONTENTS 



GETTING STARTED WITH YOUR 




13. Additional BASIC Program 




APPLE II 


1 


Examples 


55 


1. Unpacking 


1 


a. Rod's Color Pattern (4K) 


55 


2. Warranty Registration Card 


1 


b. Pong (4K) 


Do 


3. Check for Shipping Damage 


2 


c. Color Sketch (4K) 




4. Power Up 


2 


d. Mastermind (8K) 


en 

oy 


5. APPLE II Speaks Several Languages 


2 


e. Biorhythm (4K) 




6. APPLE Integer BASIC 


3 


f. Dragon Maze (4K) 


63 


7. Running Your First 




C. APPLE II FIRMWARE 


Of 


and Second Programs 


3 


1. System Monitor Commands 


CO 

DO 


8. Running 16K Startrek 


3 


2. Control and Editing Characters 


72 


9. Loading a Program Tape 


4 


3. Special Controls and Features 




10. Breakout and Color Demos Tapes 


6 


4. Annotated Monitor and 




11 Breakout and Color 




n jo_accpnriK|pr Li«itinn 

1 ' 1 uOOCI 1 IUICI 1 1 L 1 1 1 


76 


Demos Program Listings 


12 


5 Binarv Floatina Point Packaae 


94 


12. How to Play Startrek 


14 


6. Sweet 16 Interpreter Listing 


Qfi 


13. Loading HIRES Demo Tape 


15 


7. 6502 Op Codes 


-inn 
1UU 


APPLE II INTEGER BASIC 


17 


D. APPLE II HARDWARE 




1. BASIC Commands 


18 


1. Getting Started with Your 


•i(Y7 
l\Jf 


2. BASIC Operators 


19 


APPLE II Board 


110 


3. BASIC Functions 


22 


2. APPLE II Switching Power Supply 


112 


4. BASIC Statements 


23 


3. Interfacing with the Home TV 


114 


5. Special Control and Editing 


28 


4. Simple Serial Output 




6. Table A- Graphics Colors 


29 


5. Interfacing the APPLE - 




7. Special Controls and Features 


30 


Signals, Loading, Pin 
Connections 


122 


8. BASIC Error Messages 


32 


6. Memory - 




9. Simplified Memory Map 


33 


Options, Expansion, Map, 




10. Data Read/Save Subroutines 


34 


Address 


133 


11. Simple Tone Subroutines 


43 


7. System Timing 


140 


12. High Resolution Graphics 




8. Schematics 


141 


Subroutines and Listings 


46 







GETTING STARTED WITH YOUR APPLE II 



Unpacki ng 

Don't throw away the packing material . Save it for the unlikely 
event that you may need to return your Apple II for warrantee repair. 
If you bought an Apple II Board only, see hardware section in this 
manual on how to get started. You should have received the following: 

1. Apple II system including mother printed circuit board 
with specified amount of RAM memory and 8K of ROM memory, 
switching power supply, keyboard, and case assembly. 

2. Accessories Box including the following: 

a. This manual incl uding warranty card . 

b. Pair of Game Paddles 

c. A.C. Power Cord 

d. Cassette tape with "Breakouf'on one side 
and "Color Demos" on the other side. 

e. Cassette recorder interface cable (miniature 

phone jack type) 

3. If you purchased a 16K or larger system, your accessory 

box should also contain: 

a. 16K Startrek game cassette with High Resolution 
Graphics Demo ("HIRES") on the flipside. 

b. Applesoft Floating Point Basic Language Cassette 
with an example program on the other side. 

c. Applesoft reference manual 

4. In addition other items such as a vinyl carrying case 
or hobby board peripheral may have been included if 
specifically ordered as "extras". 

Notify your dealer or Apple Computer, Inc. immediately if you are 
missing any items. 

Warranty Registration Card 

Fill this card out immediately and completely and mail to Apple in 
order to register for one year warranty and to be placed on 
owners club mailing list. Your Apple 1 1 ' s serial number is located 
on the bottom near the rear edge. You model number is: 

A2S00MMX 

MM is the amount of memory you purchased. For Example: 

A2S0008X 
is an 8K Byte Apple II system. 
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Check for Damage 



Inspect the outside case of your Apple for shipping damage. Gently 
lift up on the top rear of the lid of the case to release the lid 
snaps and remove the lid. Inspect the inside. Nothing should be 
loose and rattling around. Gently press down on each integrated 
circuit to make sure that each is still firmly seated in its 
socket. Plug in your game paddles into the Apple II board at the 
socket marked "GAME I/O" at location J14. See hardware section of 
this manual for additional detail. The white dot on the connector 
should be face forward. Be careful as this connector is fragile. 
Replace the lid and press on the back top of it to re-snap it into 
pi ace. 

Power Up 

First, make sure that the power ON/OFF switch on the rear power 
supply panel on your Apple II is in the "OFF" position. Connect 
the A.C. power cord to the Apple and to a 3 wire 120 volt A.C. 
outlet. Make sure that you connect the third wire to ground if 
you have only a two conductor house wiring system. This ground 
is for your safety if there is an internal failure in the Apple 
power supply, minimizes the chance of static damage to the Apple, 
and minimizes RFI problems. 

Connect a cable from the video output jack on the back of the Apple 
to a TV set with a direct video input jack. This type of set is 
commonly called a "Monitor". If your set does not have a direct 
video input, it is possible to modify your existing set. Write for 
Apple's Application note on this. Optionally you may connect the 
Apple to the antenna terminals of your TV if you use a modulator. 
See additional details in the hardware section of this manual under 
"Interfacing with the Home TV". 

Now turn on the power switch on the back of the Apple. The indicator 

light (it's not a switch) on the keyboard should now be ON. If 

not, check A.C. connections. Press and release the "Reset" button 

on the keyboard. The following should happen: the Apple's internal 

speaker should beep, an asterisk ("*") prompt character should appear 

at the lower left hand corner of your TV, and a flashing white square 

should appear just to the right of the asterisk. The rest of the 

TV screen will be made up of radom text characters (typically question marks). 

If the Apple beeps and garbage appears but you cannot see an "*" and the 
cursor, the horizontal or vertical height settings on the TV need to be 
adjusted. Now depress and release the "ESC" key, then hold down the 
"SHIFT" key while depressing and releasing the P key. This should 
clear your TV screen to all black. Now depress and release the "RESET" 
key again. The "*" prompt character and the cursor should return to 
the lower left of your TV screen. 
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Apple Speaks Several Languages 



The prompt character indicates which language your Apple is currently 

in. The current prompt character, an asterisk ("*") .indicates that 

you are in the "Monitor" language, a powerful machine level language 

for advanced programmers. Details of this language are in the 
"Firmware" section of this manual. 

Apple Integer BASIC 

Apple also contains a high level English oriented language called 
Integer BASIC, permanently in its ROM memory. To switch to this 
language hold down the "CTRL" key while depressing and releasing the 
"B" key. This is called a control -B function and is similiar to 
the use of the shift key in that it indicates a different function 
to the Apple. Control key functions are not displayed on your 
TV screen but the Apple still gets the message. Now depress and 
release the "RETURN" key to tell Apple that you have finished typing 
a line on the keyboard. A right facing arrow (">") called a caret 
will now appear as the prompt character to indicate that Apple is 
now in its Interger BASIC language mode. 

Running Your First and Second Program 

Read through the next three sections that include: 

1. Loading a BASIC program Tape 

2. Breakout Game Tape 

3. Color Demo Tape 

Then load and run each program tape. Additional information on 
Apple II 's interger BASIC is in the next section of this manual. 

Running 16K Startrek 

If you have 16K Bytes or larger memory in your Apple, you will also 
receive a "STARTREK" game tape. Load this program just as you did 
the previous two, but before you "RUN" it, type in "HIMEM: 16384" 
to set exactly where in memory this program is to run. 
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LOADING A PROGRAM TAPE 



INTRODUCTION 

This section describes a procedure for loading BASIC programs 
successfully into the Apple II. The process of loading a program is divided 
into three section; System Checkout, Loading a Tape and What to do when 
you have Loading Problems. They are discussed below. 

When loading a tape, the Apple II needs a signal of about 2 1/2 to 5 
volts peak-to-peak. Commonly, this signal is obtained from the "Monitor" 
or "earphone" output jack on the tape recorder. Inside most tape recorders, 
this signal is derived from the tape recorder's speaker. One can take 
advantage of this fact when setting the volume levels. Using an Apple 
Computer pre-recorded tape, and with all cables disconnected, play the tape 
and adjust the volume to a loud but un-distorted level. You will find that 
this volume setting will be quite close to the optimum setting. 

Some tape recorders (mostly those intended for use with hi-fi sets) 
do not have an "earphone" or high-level "monitor" output. These machines 
have outputs labeled"line output" for connection to the power amplifier. 
The signal levels at these outputs are too low for the Apple II in most cases. 

Cassette tape recorders in the $40 - $50 range generally have ALC 
(Automatic Level Control) for recording from the microphone input. This feature 
is useful since the user doesn't have to set any volume controls to obtain 
a good recording. If you are using a recorder which must be adjusted, it 
will have a level meter or a little light to warn of excessive recording levels. 
Set the recording level to just below the level meter's maximum, or to just a 
dim indication on the level lamp. Listen to the recorded tape after you've 
saved a program to ensure that the recording is "loud and clear". 

Apple Computer has found that an occasional tape recorder will not function 
properly when both Input and Output cables are plugged in at the same time. 
This problem has been traced to a ground loop in the tape recorder itself which 
prevents making a good recording when saving a program. The easiest solution 
is to unplug the "monitor" output when recording. This ground loop does not 
influence the system when loading a pre-recorded tape. 
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Tape recorder head alignment is the most common source of tape recorder 
problems. If the playback head is skewed, then high frequency information 
on pre-recorded tapes is lost and all sorts of errors will result. To confirm 
that head alignment is the problem, write a short program in BASIC. >10 END 
is sufficient. Then save this program. And then rewind and load the program. 
If you can accomplish this easily but cannot load pre-recorded tapes, then 
head alignment problems are indicated. 

Apple Computer pre-recorded tapes are made on the highest quality professional 
duplicating machines, and these tapes may be used by the service technician to 
align the tape recorder's heads. The frequency response of the tape recorder 
should be fairly good; the 6 KHz tone should be not more than 3 db down from 
a 1 KHz tone, and a 9 KHz tone should be no more than 9 db down. Note that 
recordings you have made yourself with mis-aligned heads may not not play 
properly with the heads properly aligned. If you made a recording with a 
skewed record head, then the tiny magnetic fields on the tape will be skewed as 
well, thus playing back properly only when the skew on the tape exactly matches 
the skew of the tape recorder's heads. If you have saved valuable programs with 
a skewed tape recorder, then borrow another tape recorder, load the programs with 
the old tape recorder into the Apple, then save them on the borrowed machine. 
Then have your tape recorder properly aligned. 

Listening to the tape can help solve other problems as well. Flaws in the 
tape, excessive speed variations, and distortion can be detected this way. 
Saving a program several times in a row is good insurance against tape flaws. 
One thing to listen for is a good clean tone lasting for at least 3 1/2 seconds 
is needed by the computer to "set up" for proper loading. The Apple puts out 
this tone for anout 10 seconds when saving a program, so you normally have 
6 1/2 seconds of leeway. If the playback volume is too high, you may pick up tape 
noise before getting to the set-up tone. Try a lower playback volume. 

SYSTEM CHECKOUT 

A quick check of the Apple II computer system will help you spot any 
problems that might be due to improperly placed or missing connections between 
the Apple II, the cassette interface, the Video display, and the game 
paddles. This checkout procedure takes just a few seconds to perform and 
is a good way of insuring that everything is properly connected before the 
power is turned on. 
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1. POWER TO APPLE - check that the AC power cord is plugged 
into an appropriate wall socket, which includes a "true" 
ground and is connected to the Apple II. 

2. CASSETTE INTERFACE - check that at least one cassette 
cable double ended with miniature phone tip jacks is 
connected between the Apple II cassette Input port and 
the tape recorder's MONITOR plug socket. 

3. VIDEO DISPLAY INTERFACE - 

a) for a video monitor - check that a cable connects 
the monitor to the Apple's video output port. 

b) for a standard television - check that an adapter 
(RF modulator) is plugged into the Apple II (either 
in the video output (K 14) or the video auxiliary 
socket (J148), and that a cable runs between the 
television and the Adapter's output socket. 

4. GAME PADDLE INTERFACE - if paddles are to be used, check 
that they are connected into the Game I/O connector (J14) 
on the right-hand side of the Apple II mainboard. 

5. POWER ON - flip on the power switch in back of the Apple II, 
the "power" indicator on the keyboard will light. Also 

make sure the video monitor (or TV set) is turned on. 

After the Apple II system has been powered up and the video display 
presents a random matrix of question marks or other text characters the 
following procedure can be followed to load a BASIC program tape: 

1. Hit the RESET key. 

An asterick, "*", should appear on the lefthand side 
of the screen below the random text pattern. A flashing 
white cursor will appear to the right of the asterick. 

2. Hold down the CTRL key, depress and release the B key, 
then depress the "RETURN" key and release the "CTRL" key. 
A right facing arrow should appear on the lefthand side 
of the screen with a flashing cursor next to it. If it 
doesn't, repeat steps 1 and 2. 

3. Type in the word "LOAD" on the keyboard. You should see 
the word in between the right facing arrow and the 
flashing cursor. Do not depress the "RETURN" key yet . 

4. Insert the program cassette into the tape recorder and 
rewind it. 

5. If not already set, adjust the Volume control to 50-70% 
maximum. If present, adjust the Tone control to 80-100% 
maximum. 
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6. Start the tape recorder in "PLAY" mode and now depress 
the "RETURN" key on the Apple II. 

7. The cursor will disappear and Apple II will beep in a 
few seconds when it finds the beginning of the program. 
If an error message is flashed on the screen, proceed 
through the steps listed in the Tape Problem section 

of this paper. 

8. A second beep will sound and the flashing cursor will 
reappear after the program has been successfully loaded 
into the computer. 

9. Stop the tape recorder. You may want to rewind the program 
tape at this time. 

10. Type in the word "RUN" and depress the "RETURN" key. 

The steps in loading a program have been completed and if everying has 
gone satisfactorily the program will be operating now. 

LOADING PROBLEMS 

Occasionally, while attempting to load a BASIC program Apple II 
beeps and a memory full error is written on the screen. At this time 
you might wonder what is wrong with the computer, with the program tape, 
or with the cassette recorder. Stop. This is the time when you need 
to take a moment and checkout the system rather than haphazardly attempting 
to resolve the loading problem. Thoughtful action taken here will 
speed in a program's entry. If you were able to successfully turn on the 
computer, reset it, and place it into BASIC then the Apple II is probably 
operating correctly. Before describing a procedure for resolving this 
loading problem, a discussion of what a memory full error is in order. 

The memory full error displayed upon loading a program indicates that 
not enough (RAM) memory workspace is available to contain the incoming data. 
How does the computer know this? Information contained in the beginning of 
the program tape declares the record length of the program. The computer 
reads this data first and checks it with the amount of free memory. If 
adequate workspace is available program loading continues. If not, the 
computer beeps to indicate a problem, displays a memory full error statement, 
stops the loading procedure, and returns command of the system to the keyboard. 
Several reasons emerge as the cause of this problem. 
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Memory Size too Smal 1 

Attempting to load a 16K program into a 4K Apple II will generate this 
kind of error message. It is called loading too large of a program. The 
solution is straight forward: only load appropriately sized programs into 
suitably sized systems. 

Another possible reason for an error message is that the memory pointers 
which indicate the bounds of available memory have been preset to a smaller 
capacity. This could have happened through previous usage of the "HIMEN : " 
and " LOMEN : " statements. The solution is to reset the pointers by BC (CTRL B) 
command. Hold the CTRL key down, depress and release the B key, then depress 
the RETURN key and release the CTRL key. This will reset the system to max- 
imum capacity. 



Cassette Recorder Inadjustment 

If the Volume and Tone controls on the cassette recorder are not 
properly set a memory full error can occur. The solution is to adjust 
the Volume to 50-70% maximum and the Tone (if it exists) to 80-100% 
maximum.* 

A second common recorder problem is skewed head azimuth. When 
the tape head is not exactly perpendicular to the edges of the magnetic 
tape some of the high frequency data on tape can be skipped. This causes 
missing bits in the data sent to the computer. Since the first data read 
is record length an error here could cause a memory full error to be 
generated because the length of the record is inaccurate. The solution: 
adjust tape head azimuth. It is recommended that a competent technician 
at a local stereo shop perform this operation. 
Often times new cassette recorders will not need this adjustment. 



*Apple Computer Inc. has tested many types of cassette recorders and so far 
the Panasonic RQ-309 DS (less than $40.00) has an excellent track record 
for program loading. 



Tape Problems 

A memory full error can result from unintentional noise existing in 
a program tape. This can be the result of a program tape starting on its 
header which sometimes causes a glitch going from a nonmagnetic to magnetic 
recording surface and is interpreted by the computer as the record length. 
Or, the program tape can be defective due to false erasure, imperfections 
in the tape, or physical damage. The solution is to take a moment and 
listen to the tape. If any imperfections are heard then replacement of the 
tape is called for. Listening to the tape assures that you know what a 
"good" program tape sounds like. If you have any questions about this please 
contact your local dealer or Apple for assistance. 

If noise or a glitch is heard at the beginning of a tape advance the 
tape to the start of the program and re-Load the tape. 

Dealing with the Loading Problem 

With the understanding of what a memory full error is an efficient way 
of dealing with program tape loading problems is to perform the following 
procedure: 

1. Check the program tape for its memory requirements. 
Be sure that you have a large enough system. 

2. Before loading a program reset the memory pointers 
with the B c (control B) command. 

3. In special cases have the tape head azimuth 
checked and adjusted. 

4. Check the program tape by listening to it. 

a) Replace it if it is defective, or 

b) start it at the beginning of the program. 

5. Then re-LOAD the program tape into the Apple II. 

In most cases if the preceeding is followed a good tape load will result. 
UNSOLVED PROBLEMS 

If you are having any unsolved loading problems, contact your 
nearest local dealer or Apple Computer Inc. 
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BREAKOUT GAME TAPE 



PROGRAM DESCRIPTION 

Breakout is a color graphics game for the Apple II computer. The object of 
the game is to "knock-out' all 160 colored bricks from the playing field by 
hitting them with the bouncing ball. You direct the ball by hitting it with 
a paddle on the left side of the screen. You control the paddle with one of 
the Apple's Game Paddle controllers. But watch out: you can only miss the 
bal 1 five times: 

There are eight columns of bricks. As you penetrate through the wall the 
point value of the bricks increases. A perfect game is 720 points; after 
five balls have been played the computer will display your score and a 
rating such as "Very Good". "Terrible!", etc. After ten hits of the ball, 
its speed with double, making the game more difficult. If you break through 
to the back wall, the ball will rebound back and forth, racking up points. 

Breakout is a challenging game that tests your concentration, dexterity, 
and ski 1 1 . 

REQUIREMENTS 

This program will fit into a 4K or greater system. 
BASIC is the programming language used. 

PLAYING BREAKOUT 

1. Load Breakout game following instructions in the "Loading 
a BASIC Program from Tape" section of this manual. 

2. Enter your name and depress RETURN key. 

3. If you want standard BREAKOUT colors type in Y or Yes 
and hit RETURN. The game will then begin. 

4. If the answer to the previous questions was N or No 
then the available colors will be displayed. The 
player will be asked to choose colors, represented by a 
number from to 15, for background, even bricks, odd 
bricks, paddle and ball colors. After these have been 
chosen the game will begin. 
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5. At the end of the game you will be asked if they 
want to play again. A Y or Yes response will start 
another game. A N or No will exit from the program. 



NOTE: A game paddle (150k ohm potentiometer) must be connected 
to PDL (0) of the Game I/O connector for this game. 



COLOR DEMO TAPE 



PROGRAM DESCRIPTION 

COLOR DEMO demonstrates some of the Apple II video graphics 
capabilities. In it are ten examples: Lines, Cross, Weaving, 
Tunnel, Circle, Spiral, Tones, Spring, Hyperbola, and Color Bars. 
These examples produce various combinations of visual patterns 
in fifteen colors on a monitor or television screen. For example, 
Spiral combines col orgraphics with tones to produce some amusing 
patterns. Tones illustrates various sounds that you can produce 
with the two inch Apple speaker. These examples also demonstrate 
how the paddle inputs (PDL(X)) can be used to control the audio 
and visual displays. Ideas from this program can be incorporated 
into other programs with a little modification. 

REQUIREMENTS 

4K or greater Apple II system, color monitor or television, 
and paddles are needed to use this program. BASIC is the pro- 
gramming language used. 
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BREAKOUT GAME 
PROGRAM LISTING 



PROGRAM LISTING 



5 SOTO 15 

18 Q=( PDL <8)-£8)/6; IF Q<8 THEN 
0=8 = IF Q>=34 THEN 0=34= COLOR= 
D; VLIH 0,0+5 AT 6: COLOR=A= 
IF P>0 THEN 175= IF THEN 
VLIH 8,0-1 OT 8 =P=Q= RETURH 

lb Din HfUiii .B'ft IB) ;K = 1 .b°=ib°, 
U=H : L- ,= b ; h= 1 3 ; '-r, 1 I UHUL - 
'fib: ! = ! :HH 4: ! HK iy; K'KiHi 

HKbHYUUi :«:+::»: a r Hk i H ! 

bB b'Kini : UbibL- 1 ib iU L-'bb \ KU ';' 
hLL bbiL-f.b s = r'Kirii = in=~U : 
= rii, *riri i: b YUUK t-^lnti ~~ ,ri* 

b~j bKin ! : b ■ nhV'Hr-V L-ULUKb ! ;ri4- 
j r, IHh'Ui 'Y/N';' B ,hi = bKr, UHLL 
-936; IF BfCljDi'H 1 THEN 48 
; HUK i=H iU 5?- UUUJK = iXH* 
i i(Hii) ; VLIH S.iy Hi i 

b°8° HtHi i = HUKh b+,bB, HKiHi = 
HKiHi ; HKiH' ; HUH i=8° iU 
il = Y 1 hb iil^l nuy b = = rib 
i+l = HKiHi ij = HbHi i = HUKh 
b4,b'H; Y ! HB b'4 = HKiH 1 = HKiHi 
" UHl K bHUUHL 1 j 

o'j bubub Yj:b=b; rKifii ! bYb*i ir=KiL-r : - E 
; SbUbUB yh:K=b: HKiHi HjyD HKiU 
K 5 ;; bUbUB Hrj:U=b = HKiHi ^HHLPLL 
',. " IjULUH yh;:i;=ti HKiHi s b H LL * 
I SbUbUb Hj 

4H HUKH i ! 4,HMi UULUK=H: HJK i= 
B -'J oil YLifi 8,b? hi 1; fitf : . i 
is rUK i = cB iU 0+ b i tr cl irib 
ii~i = rKifii i/c~7| ; L-ULUK-bn 
VLIH B.HH Hi i = UULUK=U; HUK 
J=I MOD 4 TO 39 STEP 4 



45 VLIH i,J+l AT I: HEHT I, I: TAB 
5= PRIHT « SCORE =8'=PRIHT 
: PRINT : POKE 34,31 :S=e=P= 
S=L=S=X=ie=Y=ie=L=6 

58 C0L0R=fi= PLOT X,Y/3=X=19=Y= 
RHD <13e>:V=-lrJ= RHD (5)- 
3=L=L-1= IF L<1 THEH 138= TAB 
6; IF L>1 THEH PRIHT Lj 1 BALLS L 
EFT 1 

55 IF L=l THEH PRIHT "LAST BALL, 1 
jAf: PRIHT : FOR 1=1 TO 188 
: SOSUB 18: HExT I:H=1:N=S 

68 .:=¥+!!! : IF J>=8 RHD J<138 THEH 
65Hi!=-!i! = j=Y = FOR 1-1 TO 6=K= 
PEEK (-16336): HEHT I 

65 I-X+V; IF I<8 THEH 188: SOSUB 
178= C0L0R=A=K=J/3= IF I>39 
THEH 75: IF SCRH(I,K)=R THEH 
85: IF I THEH ie8:H=H+l=V=( 
H>5)+l:iii=(K-P)*3-5:H=l 

78 Z= PEEK <-16336)-PEEK (-16336 
)+ PEEK (-16336)- PEEK (-16336 
)+ PEEK (-16336)- PEEK (-16336 
)+ PEEK (-16336): SOTO 85 

75 FOR 1=1 TO 6:H= PEEK (-16336 
>: HEHT I:I=K=H=e 

88 V=-V 

85 PLOT H,Y/3: COLOR=E= PLOT I, 

K=X=I=Y=J= SOTO 68 
98 PRIHT 1 INVALID, REENTER 11 j 
95 IHPUT ' COLOR (8, TO 15) ' ,E: 

IF E<8 OR E > 1 5 THEH 98: RETURH 



188 IF H THEH V= ABS (V) = VLIH 
K/3*3,K/3*3+l AT I=S=S+I/3- 
9; VTAB El; TAB 13; PRIHS S 

185 0= PEEK (-16336)- PEEK (-16336 
)+ PEEK (-16336)- PEEK (-16336 
)+ PEEK (-16336)- PEEK (-16336 
)+ PEEK (-16336)- PEEK (-16336 
)+ PEEK (-16336)- PEEK (-16336 
) 

118 IF S<738 THEH 88 

115 __■ _ ■ __ _ _, ,-- 

__ IN!'; 

138 PRIHT 'YOUR SCORE OF 'jS;' IS 1 

;: SOTO 135+(S/ie8)*5 
135 PRIHT 'TERRIBLE! ' = SOTO 165 

138 PRIHT 'LOUSY.'; SOTO 165 

135 PRIHT 'POOR.': SOTO 165 

148 PRIHT 'SOOD = '= SOTO 165 

145 PRIHT 'VERY SOOD = '= SOTO 165 

155 PRIHT 'EXCELLENT. 1 ; SOTO 165 

168 PRIHT 'HERRLY PERFECT.' 

165 PRIHT 'RHOTHER SAHE 'jAlj' (Y-'H) 
'j = IHPUT Hi: IF Af(l,l)='Y' 
THEH 35= TEXT : CALL -936= 
VTAB 18; TAB 18= PRIHT 'SAME OV 
ER' = EHD 

178 Q=( PDL (8)-38)/6: IF 0<8 THEH 
0=8; IF Q>=34 THEH 0=34= COLOR= 
D = VLIH 0,0+5 AT 8= COLOR=A= 
IF P>0 THEH 175= IF THEH 
VLIH 8,0-1 AT 8=P=Q= RETURH 

175 IF P=Q THEH RETURH : IF 0*34 
THEH VLIH 0+6,39 AT 8=P=Q= 
RETURH 

188 FOR 1=1 TO 88=0= REEK (-16336 
)= HEHT I; SOTO 58 
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PROGRAM LISTING 

18 m G(4)i POKE 2,173: POKE 
3,48: POO! 4,192: POKE 5.165 
l POKE 6,8; POKE 7,32: POKE 
3,163: POKE 5,252: POKE 16, 
165: POKE 11,1: I 



28 POKE 13,4: POKE 14,158: POKE 
15,24: POKE 16,246: POKE 17 
J$l POKE 18,195: PEE 15,1: 
POKE 28,76: POKE 21,2: POKE 
22,8: POKE 23,56 

36 TEST : CALL -936: VTffi 4: TAB 
S: PRIST 5 4K COLOR DEKOS': PRINT 
: PRINT «i LIHCS*: PRINT *2 CROS 

5*5 mm "3 mm 1 

48 P8IKT '4 mm*: PRINT "5 CIRCL 
t*i PRINT *6 SPIRAL PRINT 
8 7 TOKES M ': PRINT '8 SPRING* 



59 PRINT '9 HYPERBOLA': PRINT 

COLOR BARS': PRINT : PRINT 
'** SEEDS PDU8; CONNECTED' 
: PRINT 

60 PRINT 'HIT RKY KEY FOR «E< DEflO' 
:Z=8: PRINT : INPUT 'WiCN OEHO 
* Mi GR t IF I>8 AND mi 
THEN GOTO 100*1: GOTO 38 

78 INPUT 

M: GR : IF 1 ftHD K26 THEN 

GOTO 188*1: GOTO 30 
138 Wt HOD 79:H+a>39)*(79 

-H): GOSUB 2660: G0S06 1^688 

: GOTO 188 

2*§ i*m hod m**i 

:J=39-I: GOSUB 
16086: GOTO 268 



DEMO PROGRAM 

LISTING 

368 J=J*l:J=J MOD 22+1: FOR 1=1 
TO 1295: COL0R=I K00 3+7: PLOT 
(£«I> NOD 37,(3*1) NOD 35: NEXT 
Is GCSUB 18886: GOTO 388 

488 FOR 1=1 T0 4:C(I>= RND (16) 
: NEXT I 

418 FOR 1=3 TO 1 STEP -l:C(I+l) 
=C<I>: NEXT I:CQ>= RND (16 
>j FOR 1=1 TO 5: FOR W TO 



L: KilH U OT K: VUN K,L AT 
L: HUN K,L AT L: VUN U BT 
K: NEXT J, I: 60SU6 16880: GOTO 
416 

580 Z=26: GOTO 986 
686 COLOR= RNDU6): FOR 1=8 TO 
18 STEP 2:J=3M: KLIN I, J AT 
I: GOSUB 640: VEIN I,J AT J: 
GOSUB 648 
618 BUN I+2.J BT J: GOSUB 648: 
VUN I+2.J AT 1+2: GOSUB 648 

: m I 

628 COLOR= RND (16): FOR 1=18 TO 
6 STEP -2:J=39-I: VLIN 1+2, 
J AT 1+2: GOSUB 648: HUN 1+ 
y AT i: 6GSUS 646 




I, J AT li GOSUB 648: NEXT I: 
GOSUB 18088: GOTO 600 
648 K=I+7;L=M*5+K*26+78:L=32767 
m PDL (8MB): POKE 8,K: 
POKE 1,L NOD 256: POKE 24, 




788 1= RND ( 38 )+3:J= 1*1*5+ 1*26+ 
78:K=32767/J*( PDL (8J/18): 
POKE 8,1: POKE 1,K HOD 25b 
: FOKE 24,(K>255)+1: CfiLL 2 
: 50SOB 18886: GOTO 783 

a88X=3:A=1868:P=B:L=28:W=4:Y=6 
'Mi C0LCR=6: KLIN 8,39 AT 
4: COLORS: GOSUB 888: COLOR= 
12: VUN 5.K-2 AT X 

818 H=2*fl-P-fl/«: £0L0R=8: GOSUB 
838: VLIN 5,39 AT X:X=X+1: IF 
X<39 THEN 828; X=3: VLIN 5,39 
AT 1: VUN 5,39 RT 2 

S28 P=A:A=N:T=A/ie8: COLOR=1£: GOSUB 
888: C0L0R=9: VLIN 5.H-2 AT 
X: COLORS: PLOT X-2,K: FOR 
1=8 TO J: NEXT I: GOSUB 18088 
: GOTO 318 

888 N=L-Y:Ll=H-i:L2=ft+l; VLIH Li, 
L2 AT X-l: VUN LI f L2 AT X: 
VLIH L1.L2 AT X+l: RETURN 

988 1=1+1 NOD 15: FOR V=8 TO 39 
: FOR X=8 TO 39: COLGR=H( ABS 
(28-XH)*< ABS (2HH)/25 
: PLOT X,Y: NEXT X,Y: GOSUB 
18888: GOTO 908 



J=l+J NOD 32: Cj!L0R=J.'2: VLIN 
8,39 AT 3+J: VTBS 21+(J/2> NOD 
2: TAB 3+J: if J HOD £ THEN 
PRINT j/£;: GOSUB 18886: GOTO 




J: £GLGR= RND (16): VLIN 6, 
39 AT J: RETURN 

IF PEEK H6334X128 THEN RETURN 
: POKE -16368,8: POP ; GOTO 
36 
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APPLE XX STARTREK VERSION 



THXS XS A SHORT DESCRIPTION OF HOH TO PLAY STARTREK OH THE 
APPLE COMPUTER. 

THE UNIVERSE XS MADE UP OF 64 QUADRANTS IN AN 8 BY 8 MATRIX. 
THE QUADRANT XN WHICH YOU THE ENTERPRISE ' ARE, IS IN WHITE , 
AND A BLOH UP OF THAT QUADRANT IS FOUND IN THE LOWER LEFT 
CORNER. YOUR SPACE SHIP STATUS IS FOUND IN A TABLE TO 
THE RIGHT SIDE OF THE QUADRANT BLOH UP. 

THIS IS A SEARCH AND DESTROY MISSION. THE OBJECT IS TO LONG-RANGE 
SENSE FOR INFORMATION AS TO WHERE KLINGONS (K3 ARE MOVE TO THAT QUADRANT, 
AND DESTROY. 

NUMBERS DISPLAYED FOR EACH QUADRANT DENOTE: 

* OF STARS IN THE ONES PLACE 

* OF BASES IN THE TENS PLACE 

* OF KLINGONS IN THE HUNDREDS PLACE 
AT ANY TIME DURING THE GAME, FOR INSTANCE BEFORE ONE TOTALLY 

RUNS OUT OF ENERGY, OR NEEDS TO REGENERATE ALL SYSTEMS, ONE MOVES TO A 
QUADRANT WHICH INCLUDES A BASE, IONS NEXT TO THAT BASE (BJ AT WHICH TIME 
THE BASE SELF-DESTRUCTS AND THE ENTERPRISE (EJ HAS ALL SYSTEMS 1 GO 1 
AGAIN . 

TO PLAY: 

1. THE COMMANDS CAN BE OBTAINED BY TYPING A ■Q- (ZERO) AND RETURN. 
THEY ARE : 

I. PROPULSION 2. REGENERATE 
3. LONG RANGE SENSORS 4. PHASERS 

5. PHOTON TORPEDOES 6. GALAXY RECORD 

7. COMPUTER 8. PROBE 

3. SHIELD ENERGY IS. DAMAGE REPORT 

II. LOAD PHOTON TORPEDOES 

2. THE COMANDS ARE INVOKED BY TYPING 1HE NUMBER REFERING TO THEM 

FOLLOWED BY A 'RETURN'. 

A. IF RESPONSE IS 1 THE COMPUTER WILL ASK WAR P OR ION AND 
EXPECTS ■ W IF ONE HANTS TO TRAVEL IN THE GALAXY 
BETWEEN QUADRANTS AND AN 'I' IF ONE HANTS ONLY 
INTERNAL QUADRANT TRAVEL. 

DURATION OF HARP FACTOR IS THE NUMBER OF SPACES OR 
QUADRANTS THE ENTERPRISE HILL MOVE. 

COURSE IS COMPASS READING IN DEGREES FOR THE DESI- 
RED DESTINATION. 
B . A 2 REGENERATES THE ENERGY AT 1HE EXPENSE OF TIME. 

C. A 3 GIVES THE CONTENTS OF THE IMMEDIATE. ADJACENT QUADRANTS. 

THE GALAXY IS HRAP — AROUND IN ALL DIRECTIONS. 

D. 4 FIRES PHASERS AT THE EXPENSE OF AVAILABLE ENERGY. 



E. 5 INITIATES A SET OF QUESTIONS FOR TORPEDO FIRING. 

THEY CAN BE FIRED AUTOMATICALLY IF THEY HAVE 
BEEN LOCKED ON TARGET HHILE IN THE COMPUTER 

MODE, OR MAY BE FIRED MANUALLY IF THE TRAGECTORY ANGLE 
IS KNOWN . 

F. 6, 8 AND lO ALL GIVE INFORMATION ABOUT THE STATUS OF THE SHIP 

AND ITS ENVIRONMENT. 

G. 3 SETS THE SHIELD ENERGY/' AVAILABLE ENERGY RATIO. 

H. ll ASKS FOR INFORMATION ON LOADING AND UNLOADING OF 

PHOTON TORPEDOES AT THE ESPENSE OF AVAILABLE ENERGY. 

THE ANSHER SHOULD BE A SIGNED NUMBER. FOR EXAMPLE 
+5 OR -2. 

I. 7 ENTERS A COMPUTER WHICH HILL RESPOND TO THE FOLLOHING 

INSTRUCTIONS : 

1. COMPUTE COURSE 2 . LOCK PHASERS 

3. LOCK PHOTON TORPEDOES 

4. LOCK COURSE 5. COMPUTE TREJECTORY 

6 . STATUS 7. RETURN TO COMAHD MODE 

IN THE FIRST FIVE ONE HILL HAVE TO GIVE COORDINATES. 
COORDINATES ARE GIVEN IN MATHMATICAL NOTATION HITH 
THE EXCEPTION THAT THE ■¥■ VALUE IS GIVEN FIRST. 
AN EXAMPLE WOULD BE 'Y,X' 

COURSE OR TRAJECTORY: 



I 

I 
I 

— + go 

I 
I 

j 

180 



THIS EXPLANATION HAS HRITTEN BY EL HOOD 
NOT RESPONSIBLE FOR 
ERRORS 
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LOADING THE HI-RES DEMO TAPE 



PROCEDURE 

1. Power up system - turn the AC power switch in the back 
of the Apple II on. You should see a random matrix of 
question marks and other text characters. If you don't, 
consult the operator's manual for system checkout pro- 
cedures . 

2. Hit the RESET key. On the left hand side of the screen 
you should see an asterisk and a flashing cursor next to 
it below the text matrix. 

3. Insert the HI-RES demo tape into the cassette and rewind 
it. Check Volume (50-70%) and Tone (80-100%) settings. 

4. Type in "C00.FFFR" on the Apple II keyboard. This is the 
address range of the high resolution machine language sub- 
program. It extends from $C00 to $FFF. The R tells the 
computer to read in the data. Do not depress the "RETURN" 
key yet. 

5. Start the tape recorder in playback mode and depress the 
"RETURN" key. The flashing cursor disappears. 

6. A beep will sound after the program has been read in. 

STOP the tape recorder. Do not rewind the program tape yet. 

7. Hold down the "CTRL" key, depress and release the B key, 
then depress the "RETURN" key and release the "CTRL" key. 
You should see a right facing arrow and a flashing cursor. 
The Be command places the Apple into BASIC initializing 
the memory pointers. 

8. Type in "LOAD", restart the tape recorder in playback mode 
and hit the "RETURN" key. The flashing cursor disappears. 
This begins the loading of the BASIC subprogram of the 
HI-RES demo tape. 

9. A beep will sound to indicate the program is being loaded. 
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10. A second beep will sound, and the right facing arrow 
will reappear with the flashing cursor. STOP the 
tape recorder. Rewind the tape. 



11. Type in "HIMEM:8192" and hit the "RETURN" key. This 
sets up memory for high resolution graphics. 

12. Type in "RUN" and hit the "RETURN" key. The screen 

should clear and momentarily a HI-RES demo menu table 
should appear. The loading sequence is now completed. 



SUMMARY OF HI-RES DEMO TAPE LOADING 



1. RESET 

2. Type in C00.FFFR 

3. Start tape recorder, hit RETURN 

4. Asterick or flashing cursor reappear 
Be (CTRL B) into BASIC 

5. Type in "LOAD", hit RETURN 

6. BASIC prompt (7) and flashing cursor 
reappear. Type in "HIMEN : 8192" , hit 
RETURN 

7. Type in "RUN", hit RETURN 

8. STOP tape recorder, rewind tape. 
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APPLE II INTEGER BASIC 



1. BASIC Commands 

2. BASIC Operators 

3. BASIC Functions 

4. BASIC Statements 

5. Special Control and Editing 

6. Table A — Graphics Colors 

7. Special Controls and Features 

8. BASIC Error Messages 

9. Simpfilied Memory Map 

10. Data Read Save Subroutines 

11. Simple Tone Subroutires 

12. High Resolution Graphics 

13. Additional BASIC Program Examples 



BASIC COMMANDS 

Commands are executed immediately; they do not require line numbers. Most Statements 
(see Basic Statements Section) may also be used as commands. Remember to press 
Return key after each command so that Apple knows that you have finished that 
line. Multiple commands (as opposed to statements) on same line separated by 
a " : " are NOT allowed. 

COMMAND NAME 



AUTO num 



AUTO numl, numS 

CLR 

CON 

DEL numl, 

DEL numl, num2 

DSP var 



HIMEM expr 



GOTO expr 
GR 

LIST 

LIST numl 

LIST numl, num2 



Sets automatic line numbering mode. Starts at line 
number num and increments line numbers by 10. To 
exit AUTO mode, type a control X*, then type the 
letters "MAN" and press the return key. 

Same as above execpt increments line numbers by 
number num2. 

Clears current BASIC variables; undimensions arrays. 
Program is unchanged. 

Continues program execution after a stop from a 
control C*. Does not change variables. 

Deletes line number numl. 

Deletes program from line number numl through line 
number num2. 

Sets debug mode that will display variable var every 
time that it is changed along with the line number 
that caused the change. (NOTE: RUN command clears 
DSP mode so that DSP command is effective only if 
program is continued by a CON or GOTO command.) 

Sets highest memory location for use by BASIC at 
location specified by expression expr in decimal . 
HIMEM: may not be increased without destroying program. 
HIMEM: is automatically set at maximum RAM memory when 
BASIC is entered by a control B*. 



Causes immediate jump to line number specified 
expressi on expr. 



by 



Sets mixed color graphics display mode. Clears screen 
to black. Resets scrolling window. Displays 40x40 
squares in 15 colors on top of screen and 4 lines of text 
at bottom. 

Lists entire program on screen. 
Lists program line number numl. 

Lists program line number numl through line number 

num8. 
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LOAD expr. 



LOMEM: expr 

MAN 
NEW 

NO DSP var 
NO TRACE 
RUN 

RUN expr 
SAVE 

TEXT 

TRACE 



Reads (Loads) a BASIC program from cassette tape. 
Start tape recorder before hitting return key. Two 
beeps and a " > " indicate a good load. "ERR" or "MEM" 
FULL ERR" message indicates a bad tape or poor recorder 
performance. 

Similar to H I MEM : except sets lowest memory location 
available to BASIC. Automatically set at 2048 when 
BASIC is entered with a control B*. Moving LOMEM: 
destroys current variable values. 

Clears AUTO line numbering mode to all manual line 
numbering after a control C* or control X*. 

Clears (Scratches) current BASIC program. 

Clears DSP mode for variable var. 

Clears TRACE mode. 

Clears variables to zero, undimensions all arrays and 
executes program starting at lowest statement line 
number. 

Clears variables and executes program starting at line 
number specified by expression expr. 

Stores (saves) a BASIC program on a cassette tape. 
Start tape recorder in record mode prior to hitting 
return key. 

Sets all text mode. Screen is formated to display 
alpha-numeric characters on 24 lines of 40 characters 
each. TEXT resets scrolling window to maximum. 

Sets debug mode that displays line number of each 
statement as it is executed. 



Control characters such as control X or control C are 
typed by holding down the CTRL key while typing the 
specified letter. This is similiar to how one holds 
down the shift key to type capital letters. Control 
characters are NOT displayed on the screen but are 
accepted by the computer. For example, type several 
control G's. We will also use a superscript C to indicate 
a control character as in X c . 
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BASIC Operators 



Symbol 



Sample Statement 



Expl anati on 



Prefix Operators 
( ) 10 X- 4*(5 + X) 



+ 



NOT 



20 X= 1+4*5 

30 ALPHA = 
-(BETA +2) 

40 IF A NOT B THEN 
200 



Expressions within parenthesis ( ) 
are always evaluated first. 

Optional; +1 times following expression, 

Negation of following expression. 



Logical Negation of following expression; 
if expression is true (non-zero), 1 
if expression is false (zero). 



Arithmetic Operators 



60 Y = X 3 

70 LET D0TS=A*B*N2 



Exponentiate as in X . NOTE: t is 
shifted letter N. 

Multiplication. NOTE: Impl i ed mul ti - 
plication such as (2 + 3)(4) is not 
allowed thus N2 in example is a variable 
not N * 2. 



/ 

MOD 


80 


PRINT GAMMA/S 


Divide 


90 
100 


X = 12 MOD 7 
X = X MODCY+2) 


Modulo: Remainder after division of 
first expression by second expression. 


+ 


110 


P = L + G 


Add 




120 


XY4 = H-D 


Substract 




130 
140 
150 
155 


H E I GHT=1 5 
LET SIZE=7*5 
A(8) = 2 

ALPHAS = "PLEASE" 


Assignment operator; assigns a value to 
a variable. LET is optional 
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Relational and Logical Operators 

The numeric values used in logical evaluation are "true" if non-zero, 
"false" if zero. 



Symbol 



Sample Statement 



Expl anation 



# or < > 
# 



>= 
<= 

AND 

OR 



160 IF D = E 
THEN 500 

170 IF A$(l ,1 )= 
"Y" THEN 5VV 

180 IF ALPHA #X*Y 
THEN 500 

190 IF A$ # "NO" 
THEN 500 



200 IF A>B 
THEN GO TO 50 

210 IF A+KB-5 
THEN 100 

220 IF A>=B 
THEN 100 

230 IF A+K-B-6 
THEN 200 

240 IF A>B AND 
C<D THEN 200 

250 IF ALPHA OR 
BETA+1 THEN 200 



Expression "equals" expression. 



String variable "equal 'string variable. 



Expression "does not equal" expression, 



String variable "does not equal" string 
variable. NOTE: If strings are not 
the same length, they are considered 
un-equal. < > not allowed with strings. 

Expression "is greater than" expression. 



Expression "is less than" expression. 



Expression "is greater than or equal to" 
expression. 

Expression "is less than or equal to" 
expression. 

Expression 1 "and" expression 2 must 
both be "true" for statements to be true. 



If either expression 1 or expression 2 
is "true", statement is "true". 
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BASIC FUNCTIONS 



Functions return a numeric result. They may be used as expressions or as 
of expressions. PRINT is used for examples only, other statements may 
be used. Expressions following function name must be enclosed between two 
parenthesis signs. 
FUNCTION NAME 



part 



ABS (expr) 
ASC (str$) 

LEN (str$) 



300 PRINT ABS(X) 



Gives absolute value of the expression expr. 



310 PRINT ASCCBACK") Gives decimal ASCII value of designated 
320 PRINT ASC ( 3$ ) string variable str. If more than one 
330 PRINT ASC(B$(4,4) )character is in designated string or 
335 PRINT ASC(B$(Y) ) sub-string, it gives decimal ASCII 

value of first character. 
340 PRINT LEN ( B$ ) Gives current length of designated 

string variable str$;i.e., number of 

characters . 



PDL (expr) 350 PRINT PDL(X) 



PEEK (expr) 360 PRINT PEEK(X) 



S C RN( expr 1, 
expr 2 ) 



Gives number between and 255 corresponding 
ponding to paddle position on game paddle 
number designated by expression expr and must 
be legal paddle (0,1, 2, or 3) or else 255 is 
returned. 

Gives the decimal value of number stored 
of decimal memory location specified by 
expression expr. For MEMORY locations 
above 32676, use negative number; i.e., 
HEX location FFF0 is -16 

Gives random number between V and 
(expression expr -1) if expression expr 
is positive; if minus, it gives random 
number between and (expression expr +1). 



380 PRINT SCRN (Xl.Yl)Gives color (number between and 15) of 

screen at horizontal location designated 
by expression exprl and vertical 
location designated by expression exprg 



RND (expr) 370 PRINT RND(X) 



Range of expression exprl is 
of expression expr2 is to 
mixed col orgraphics display 
GR command or to 47 if in 
set by POKE -16304 ,0: POKE 



to 39. Range 
39 if in standar 
mode as set by 
al 1 col or mode 
- 16302,0'. 



SGN (expr) 390 PRINT SGN(X) 



Gives sign (not sine) of expression expr 
i.e., -1 if expression expr is negative, zero 
zero and +1 if expr is positive. 
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BASIC STATEMENTS 



Each BASIC statement must have a line number between and 32767. Variable 
names must start with an alpha character and may be any number of alpha- 
numeric characters up to 100. Variable names may not contain buried any 
of the following words: AND, AT, MOD, OR, STEP, or THEN. Variable names may 
not begin with the letters END, LET, or REM. String variables names must end 
with a $ (dollar sign). Multiple statements may appear under the same line number 
if separated by a : (colon) as long as the total number of characters in the line 
(including spaces) is less than approximately 150 characters 
Most statements may also be used as commands. BASIC statements are executed 
by RUN or GOTO commands. 



NAME 

CALL expr 



C0L0R=expr 



DIM varl(exprl) 
str$ (exprS) 
var2 (expr 3) 



DSP var 



10 CALL-936 



30 C0L0R=12 



50 DIM A(20),B(10) 
60 DIM B$(30) 
70 DIM C (2) 
Illegal : 
80 DIM A(30) 
Legal : 

85 DIM C(1000) 



Legal : 

90 DSP AX: DSP L 
Illegal : 

100 DSP AX,B 

102 DSP AB$ 

104 DSP A(5) 
Legal : 

105 A=A(5): DSP A 



Causes execution of a machine level 
language subroutine at decimal memory 
location specified by expression expr 
Locations above 32767 are specified using 
negative numbers; i.e., location in 
example 10 is hexidecimal number $ FC53 

In standard resolution color (GR) 
graphics mode, this command sets screen 
TV color to value in expression expr 

15 as described in 
expression expr may be 
255 without error message 
as if it were 



in the range to 
Table A. Actually 
in the range to 



since it is implemented 
expression expr MOD 16. 



The DIM statement causes APPLE II to 
reserve memory for the specified variables. 
For number arrays APPLE reserves 
approximately 2 times expr bytes of memory 
limited by available memory. For string 
arrays -str$-(expr) must be in the range of 
1 to 255. Last defined variable may b'e 
redimensioned at any time; thus, example 
in line is illegal but 85 is allowed. 

Sets debug mode that DSP variable var each 
time it changes and the line number where the 
change occured. 
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EXAMPLE 



DESCRIPTION 



110 END 



110 FOR L=0 to 39 

120 FOR X-Yl TO Y3 

130 FOR 1=39 TO 1 

150 GOSUB 100 *J2 



Stops program execution. Sends carriage 
return and "> " BASIC prompt) to screen. 

Begins FOR... NEXT loop, initializes 
variable var to value of expression exprl 
then increments it by amount in expression 
exprS each time the corresponding "NEXT" 
statement is encountered, until value of 
expression exprg is reached. If STEP exprS 
is omitted, a STEP of +1 is assumed. Negative 
numbers are allowed. 



140 GOSUB 500 



160 GOTO 200 

170 GOTO ALPHA+100 



Causes branch to BASIC subroutine starting 
at legal line number specified by expression 
expr Subroutines may be nested up to 
16 levels. 

Causes immediate jump to legal line 
number specified by expression expr. 



180 GR Sets mixed standard resolution color 

190 GR: POKE -16302,0 graphics mode. Initializes COLOR = 

(Black) for top 40x40 of screen and sets 
scrolling window to lines 21 through 24 
by 40 characters for four lines of text 
at bottom of screen. Example 190 sets 
all color mode (40x48 field) with no text 
at bottom of screen. 

200 HLIN 0,39 AT 20 In standard resolution color graphics mode, 

210 HLIN 1,1+6 AT I this command draws a horizontal line of a 

predefined color (set by C0L0R=) starting 
at horizontal position defined by expression 
exprl and ending at position expr2 at 
vertical position defined by expression 
exprS. exprl and exprS must be in the range 
of to 39 and exprl < = exprS . expr3 
be in the range of to 39 (or to 47 if not 
in mixed mode) . 

HLIN 0, 19 AT is a horizontal line at the top of the screen 
extending from left corner to center of screen and HLIN 20,39 AT 
39 is a horizontal line at the bottom of the screen extending from 
center to right corner. 
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IF expression 
THEN statement 



INPUT uarl, 
varS, str$ 



IN# expr 



LET 



LIST numl, 
nurnS 



NEXT uarl, 
varg 



NO DSP var 
NO TRACE 



220 IF A> B THEN 

PRINT A 
230 IF X=0 THEN C=l 
240 IF A#10 THEN 

GOSUB 200 
250 IF A$(l,l)# "Y" 
THEN 100 

Illegal : 

260 IF L> 5 THEN 50: 
ELSE 60 

Legal : 

270 IF L> 5 THEN 50 
GO TO 60 

280 INPUT X,Y,Z(3) 

290 INPUT "AMT" , 
DLLR 

300 INPUT "Y or N?", A$ 



310 IN# 6 
320 IN# Y+2 
330 IN# 



340 LET X=5 
350 IF X>6 THEN 



360 NEXT I 
370 NEXT J,K 



380 NO DSP I 
390 NO TRACE 



If expression is true (non-zero) then 

execute statement; if false do not 

execute statement. If statement 

is an expression, then a GOTO expr 

type of statement is assumed to be implied 

The "ELSE" in example 260 is illegal but 

may be implemented as shown in example 270 



Enters data into memory from I/O 
device. If number input is expected, 
APPLE wil output "?"; if string input is 
expected no "?" will be outputed. Multiple 
numeric inputs to same statement may be 
separated by a comma or a carriage return. 
String inputs must be separated by a 
carriage return only. One pair of " " may 
be used immediately after INPUT to output 
prompting text enclosed within the quotati 
marks to the screen. 

Transfers source of data for subsequent 
INPUT statements to peripheral I/O slot 
(1-7) as specified as by expression expr. 
Slot is not addressable from BASIC. 
IN#0 (Example 330) is used to return data 
source from peripheral I/O to keyboard 
connector. 

Assignment operator. "LET" is optional 

Causes program from line number numl 
through line number num2 to be displayed 
on screen. 

Increments corresponding "FOR" variable 
and loops back to statement following 
"FOR" until variable exceeds limit. 

Turns-off DSP debug mode for variable 

Turns-off TRACE debug mode 
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PLOT exprl, expr 2 

POKE exprl, expr 2 
POP 

PRINT uarl, uar, str$ 

PR# expr 
REM 

RETURN 



400 PLOT 15, 25 
400 PLT XV, YV 



420 POKE 20, 40 
430 POKE 7*256, 
XM0D25E 



440 POP 



450 PRINT LI 

460 PRINT Li, X2 

470 PRINT "AMT=";DX 

480 PRINT A$;B$; 

490 PRINT 

492 PRINT "HELLO" 

494 PRINT 2+3 



500 PR# 7 



510 REM REMARK 



520 RETURN 
530 I FX- 5 THEN 
RETURN 



In standard resolution color 
graphics, this command plots a small 
square of a predefined color (set 
by C0L0R=) at horizontal location 
specified by expression exprl in 
range to 39 and vertical location 
specified by expression exprg in range 
to 39 (or to 47 if in all graphics 
mode) NOTE: PLOT is upper left 
and PLOT 39, 39 (or PLOT 39, 47) is 
lower right corner. 

Stores decimal number defined by 
expression exprS in range of 
255 at decimal memory location 
specified by expression exprl 
Locations above 32767 are specified 
by negative numbers. 

"POPS" nested GOSUB return stack 
address by one. 

Outputs data specified by variable 
var or string variable str$ starting 
at current cursor location. If there 
is not trailing "," or ";" (Ex 450) 
a carriage return will be generated. 

Commas (Ex. 460) outputs data in 5 
left justified columns. Semi-colon 
(Ex. 470) inhibits print of any spaces. 
Text imbedded in " " will be printed 
and may appear multiple times. 

Like IN#, transfers output to I/O 
slot defined by expression expr PR# 
is video output not I/O slot 0. 

No action. All characters after REM 

are treated as a remark until terminated 

by a carriage return. 

Causes branch to statement following 
last GOSUB; i.e. , RETURN ends a 
subroutine. Do not confuse "RETURN" 
statement with Return key on keyboard. 
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TAB expr 

TEXT 
TRACE 

VLIN exprl, exprS 
AT expr3 

VTAB expr 



530 TAB 24 Moves cursor to absolute horizontal 

540 TAB 1+24 position specified by expression 

550 IF A#B THEN expr in the range of 1 to 40. Position 

TAB 20 is left to right 



550 TEXT 

560 TEXT: CALL-936 



Sets all text mode. Resets 
scrolling window to 24 lines by 40 
characters. Example 560 also clears 
screen and homes cursor to upper left 
corner 



570 TRACE 

580 I FN >32000 



590 VLIN 0, 39AT15 
600 VLIN Z , Z+6ATY 



610 VTAB 18 
620 VTAB Z+2 



Sets debug mode that displays each 
line number as it is executed. 
THEN TRACE 

Similar to HLIN except draws vertical 
line starting at exprl and ending at 
expr2 at horizontal position exprS. 

Similar to TAB. Moves cursor to 
absolute vertical position specified 
by expression expr in the range 1 to 
24. VTAB 1 is top line on screen; 
VTAB24 is bottom. 
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SPECIAL CONTROL AND EDITING CHARACTERS 



"Control" characters are indicated by a super-scripted "C" such as G . They 
are obtained by holding down the CTRL key while typing the letter. 
Control characters are NOT displayed on the TV screen. B and C must be 
followed by a carriage return. Screen editing characters are indicated by a 
sub-scripted "E" such as D^. They are obtained by pressing and releasing the 
ESC key then typing specified letter. Edit characters send information only 
to display screen and does not send data to memory. For example, U c moves to 
cursor to right and copies text while A E moves cursor to right but does not 
copy text. 



CHARACTER 
RESET key 



Control B 



DESCRIPTION OF ACTION 

Immediately interrupts any program execution and resets 
computer. Also sets all text mode with scrolling window 
at maximum. Control is transfered to System Monitor and 
Apple prompts with a "*" (asterisk) and a bell. Hitting 
RESET key does NOT destroy existing BASIC or machine 
language program. 

If in System Monitor (as indicated by a "*"), a control 
B and a carriage return will transfer control to BASIC, 
scratching (killing) any existing BASIC program and set 
HIMEM: to maximum installed user memory and LOMEM: 
to 2048. 



Control C 



Control G 

Control H 

Control 3 

Control V 

Control X 



If in BASIC, halts program and displays line number 
where stop occurred*. Program may be continued with a 
CON command. If in System Monitor, (as indicated by "*"), 
control C and a carraige return will enter BASIC without 
killing current program. 

Sounds bell (beeps speaker) 

Backspaces cursor and deletes any overwritten characters 
from computer but not from screen. Apply supplied 
keyboards have special key on right side of keyboard 
that provides this functions without using control button. 

Issues line feed only 

r 

Compliment to H . Forward spaces cursor and copies over 
written characters. Apple keyboards have H-0 key on 
right side which also performs this function. 

Immediately deletes current line. 

If BASIC program is expecting keyboard input, you will have 
to hit carriage return key after typing control C. 
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CHARACTER DESCRIPTION OF ACTION 



A^ Move cursor to right 

Move cursor to left 
C^ Move cursor down 

Move cursor up 

E^ Clear text from cursor to end of line 

Clear text from cursor to end of page 
@ Home cursor to top of page, clear text to end 



E 



of page. 



Table A: APPLE II COLORS AS SET BY COLOR = 

Note: Colors may vary depending on TV tint (hue) setting and may also 

be changes by adjusting trimmer capacitor C3 on APPLE II P.C. Board. 






= Black 


8 


= Brown 


1 


= Magnenta 


9 


= Orange 


2 


= Bark Bl ue 


10 


= Grey 


3 


= Light Purple 


11 


= Pink 


4 


= Dark Green 


12 


= Green 


5 


= Grey 


13 


= Yellow 


6 


= Medi urn Bl ue 


14 


= Bl ue/Green 


7 


= Light Blue 


15 


= White 
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Special Controls and Features 



Hex BASIC Example Description 



Display Mode Controls 



CO50 


10 


POKE 


-16304,0 


Set color graphics mode 


C051 


20 


POKE 


-16303,0 


Set text mode 


C052 


30 


POKE 


-16302,0 


Clear mixed graphics 


C053 


40 


POKE 


-16301,0 


Set mixed graphics (4 lines text) 


C054 


50 


POKE 


-16300,0 


Clear display Page. 2 (BASIC commands 










use Page 1 only) 


C055 


60 


POKE 


-16299,0 


Set display to Page 2 (alternate) 


C056 


70 


POKE 


-16298,0 


Clear HIRES graphics mode 


C057 


80 


POKE 


-16297,0 


Set HIRES graphics mode 



TEXT Mode Controls 



0020 

0021 
0022 
0023 
0024 



0025 

0032 

FC58 
FC42 



90 POKE 32, LI 

100 POKE 33, Ml 
110 POKE 34,11 
120 POKE 35, Bl 



130 CH=PEEK(36) 
140 POKE 36, CH 
150 TAB(CH+1 ) 



160 CV=PEEK (37) 

170 POKE 37, CV 

180 VTAB(CV+1) 

190 POKE 50,127 

200 POKE 50,255 

210 CALL -936 

220 CALL -958 



Set left side of scrolling window 
to location specified by LI in 
range of to 39. 

Set window width to amount specified 
by WI. L1+WK40. W1>0 

Set window top to line specified 
by Tl in range of to 23 

Set window bottom to line specified 
by Bl in the range of to 23. B1>T1 

Read/set cusor horizontal position 
in the range of to 39. If using 
TAB, you must add "1" to cusor positior 
read value; Ex. 140 and 150 perform 
identical function. 

Similar to above. Read/set cusor vertical 
position in the range to 23. 

Set inverse flag if 127 (Ex. 190) 
Set normal flag if 255(Ex. 200) 

(@ E ) Home cusor, clear screen 

(F E ) Clear from cusor to end of page 
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Hex BASIC Example Description 

FC9C 230 CALL -868 (EE) Clear from cusor to end of line 

FC66 240 CALL -922 (J C ) Line feed 

FC70 250 CALL -912 Scroll up text one line 

Miscel 1 aneous 

C030 360 X=PEEK( -1 6336) Toggle speaker 

365 POKE -16336,0 

C000 370 X=PEEK( -16384 Read keyboard; if X>127 then key was 

pressed. 

C010 380 POKE -16368,0 Clear keyboard strobe - always after 

reading keyboard. 

C061 390 X=PEEK( 16287 ) Read PDL(0) push button switch. If 

X>127 then switch is "on". 

C062 400 X=PEEK( -1 6286) Read PDL(l) push button switch. 

C063 410 X=PEEK( -1 6285 Read PDL(2) push button switch. 

C058 420 POKE -16296,0 Clear Game I/O AN0 output 

C059 430 POKE -16295,0 Set Game I/O AN0 output 

C05A 440 POKE -16294,0 Clear Game I/O AN1 output 

C05B 450 POKE -16293,0 Set Game I/O AN1 output 

C05C 460 POKE -16292,0 Clear Game I/O AN2 output 

C05D 470 POKE -16291,0 Set Game I/O AN2 output 

C05E 480 POKE -16290,0 Clear Game I/O AN3 output 

C05F 490 POKE -16289,0 Set Game I/O AN3 output 
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APPLE II BASIC ERROR MESSAGES 



*** SYNTAX ERR 
*** > 32767 ERR 

*** > 255 ERR 

*** BAD BRANCH ERR 

*** BAD RETURN ERR 

*** BAD NEXT ERR 

*** 16 GOSUBS ERR 
*** 16 FORS ERR 
*** NO END ERR 
*** MEM FULL ERR 

*** TOO LONG ERR 

*** DIM ERR 

*** RANGE ERR 



*** STR OVFL ERR 
*** STRING ERR 
RETYPE LINE 



Results from a syntactic or typing error. 

A value entered or calculated was less than 
-32767 or greater than 32767. 

A value restricted to the range to 255 was 
outside that range. 

Results from an attempt to branch to a non- 
existant line number. 

Results from an attempt to execute more RETURNS 
than previously executed GOSUBs. 

Results from an attempt to execute a NEXT state- 
ment for which there was not a corresponding 
FOR statement. 

Results from more than 16 nested GOSUBs. 

Results from more than 16 nested FOR loops. 

The last statement executed was not an END. 

The memory needed for the program has exceeded 
the memory size allotted. 

Results from more than 12 nested parentheses or 
more than 128 characters in input line. 

Results from an attempt to DIMension a string 
array which has been previously dimensioned. 

An array was larger than the DIMensioned 
value or smaller than 1 or HLIN.VLIN, 
PLOT, TAB, or VTAB arguments are out of 
range. 

The number of characters assigned to a string 
exceeded the DIMensioned value for that string. 

Results from an attempt to execute an illegal 
string operation. 

Results from illegal data being typed in response 
to an INPUT statement. This message also requests 
that the illegal item be retyped. 
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Simpl ified Memory Map 



64K 



56K 





Monitor and BASIC Routines in ROM 



Future enhancement or user supplied 
PROMS 



52K- 
48K- 



Peripheral I/O 



(HIMEM: 



— — — • User specified RAM memory size 



User Workspace 




( LOMEM: ) 
2K 



IK. 




Screen Memory 
Internal Workspace 
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READ/SAVE DATA SUBROUTINE 



INTRODUCTION 

Valuable data can be generated on the Apple II computer and sometimes 
it is useful to have a software routine that will allow making a permanent 
record of this information. This paper discusses a simple subroutine that 
serves this purpose. 

Before discussing the Read/Save routines a rudimentary knowledge of 
how variables are mapped into memory is needed. 

Numeric variables are mapped into memory with four attributes. Appearing 
in order sequentually are the Variable Name, the Display Byte, the Next Variable 
Address, and the Data of the Variable. Diagramatical ly this is represented as: 



YN DSP NVA DATA(O) DATA ( 1 ) , DATA(N) 

1 h ! h 2 h n +l 



VARIABLE NAME - up to 100 characters 
represented in memory as ASCII equi- 
valents with the high order bit set. 

DSP (DISPLAY) BYTE - set to 01 when 
DSP set in BASIC initiates a process 
that displays this variable with the 
line number every time it is changed 
within a program. 

NVA (NEXT VARIABLE ADDRESS) - two 
bytes (first low order, the second 
high order) indicating the memory 
location of the next variable. 

DATA - hexadecimal equivalent of 
numeric information, represented 
in pairs of bytes, low order byte 
f i rst. 
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String variables are formatted a bit differently than numeric ones. 
These variables have one extra attribute - a string terminator which desig- 
nates the end of a string. A string variable is formatted as follows: 

VN DSP NVA DATA(0) DATA ( 1 ) . . . . DATA(n) ST 



h l h 2 h n+l 



VARIABLE NAME - up to 100 characters 
represented in memory as ASCII equi- 
valents with the high order bit set. 

DSP (DISPLAY) BYTE - set to 01 when 
DSP set in BASIC, initiates a process 
that displays this variable with the 
line number every time it is changed 
within a program. 

NVA (NEXT VARIABLE ADDRESS) - two 
bytes (first low order, the second 
high order) indicating the memory 
location of the next variable. 

DATA - ASCII equivalents with high 
order bit set. 

STRING TERMINATOR (ST) - none high 
order bit set character indicating 
END of string. 

There are two parts of any BASIC program represented in memory. One is 
the location of the variables used for the program, and the other is the actual 
BASIC program statements. As it turns out, the mapping of these within memory 
is a straightforward process. Program statements are placed into memory starting 
at the top of RAM memory* unless manually shifted by the "HIMEM : . " command, and 
are pushed down as each new (numerically larger) line numbered statement is 
entered into the system. Figure la illustrates this process diagramatical ly. 
Variables on the other hand are mapped into memory starting at the lowest position 
of RAM memory - hex $800 (2048) unless manually shifted by the"L0MEM:" command. 
They are laid down from there (see Figure lb) and continue until all the variables 
have been mapped into memory or until they collide with the program statements. 
In the event of the latter case a memory full error will be generated 



*Top of RAM memory is a function of the amount of memory. 
16384 will be the value of "HIMEM:" for a 16K system. 
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The computer keeps track of the amount of memory used for the variable 
table and program statements. By placing the end memory location of each into 
$CC-CD(204-205) and $CA- CB ( 203 - 204 ) , respectively. These are the BASIC 
memory program pointers and their values can be found by using the statements 
in Figure 2. CM defined in Figure 1 as the location of the end of the variable 
tape is equal to the number resulting from statement a of Figure 2. PP, the 
program pointer, is equal to the value resulting from statement 2b. These 
statements(Figure 2) can then be used on any Apple II computer to find the 
limits of the program and variable table. 

FINDING THE VARIABLE TABLE FROM BASIC 

First, power up the Apple II, reset it, and use the CTRL B (control B) 
command to place the system into BASIC initializing the memory pointers. Using 
the statements from Figure 2 it is found that for a 16K Apple II CM is equal to 
2048 and PP is equal to 16384. These also happen to be the values of OMEN and 
HIMEN: But this is expected because upon using the Be command both memory 
pointers are initialized indicating no program statements and no variables. 

To illustrate what a variable table looks like in Apple II memory suppose 
we want to assign the numeric variable A ($C1 is the ASCII equivalent of a with 
the high order bit set) the value of -1 (FF FF in hex) and then examine the 
memory contents. The steps in this process are outlined in example I. Variable A 
is defined as equal to -1 (step 1). Then for convenience another variable - B - 
is defined as equal to (step 2). Now that the variable table has been defined 
use of statement 2a indicates that CM is equal to 2060 (step 3). LOMEN has not 
been readjusted so it is equal to 2048. Therefore the variable table resides in 
memory from 2048 ($800 hex) to 2060 ($88C). Depressing the "RESET" key places 
the Apple II into the monitor mode (step 4). 

We are now ready to examine the memory contents of the variable table. 
Since the variable table resides from $800 hex to $80C hex typing in "800. 80C" 
and then depressing the "RETURN" key (step 5) will list the memory contents of 
this range. Figure 3 lists the contents with each memory location labelled. 
Examining these contents we see that CI is equal to the variable name and is the 
memory equivalent of "A" and that FF FF is the equivalent of -1. From this, since 
the variable name is at the beginning of the table and the data is at the end, the 
variable table representation of A extends from $800 to $805. We have then found 
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the memory range of where the variable A is mapped into memory. 
The reason forthis will become clear in the next section. 

READ/SAVE ROUTINE 

The READ/SAVE subroutine has three parts. The first section (lines 0-10) 
defines variable A and transfers control to the main program. Lines 20 through 
26 represents the Write data to tape routine and lines 30-38 represent the Read 
data from tape subroutine. Both READ and SAVE routines are executable by the 
BASIC "GOSUB X" (where X is 20 for write and 30 is for read) command. And as 
listed these routines can be directly incorporated into almost any BASIC program 
for read and saving a variable table. The limitation of these routines is that 
the whole part of a variable table is processed so it is necessary to maintain 
exactly the dimension statements for the variables used. 

The variables used in this subroutine are defined as follows: 

A = record length, must be the first variable defined 
CM= the value obtained from statement a of figure 2 
LW= is equal to the value of "LOMEM:" 
Nominally 2048 

SAVING A DATA TABLE 

The first step in a hard copy routine is to place the desired data onto 
tape. This is accomplished by determining the length of the variable table and 
setting A equal to it. Next within the main program when it is time to write the 
data a GOSUB20 statement will execute the write to tape process. Record length, 
variable A, is written to tape first (line 22) followed by the desired data 
(line 24). When this process is completed control is returned to the main program. 

READING A DATA TABLE 

The second step is to read the data from tape. When it is time a GOSUB30 
statement will initiate the read process. First, the record length is read in 
and checked to see if enough memory is available (line 32-34). If exactly the 
same dimension statements are used it is almost guaranteed that there will be 
enough memory available. After this the variable table is read in (line 34) and 
control is then returned to the main program (line 36). If not enough memory 
is available then an error is generated and control is returned to the main pro- 
gram (line 38) 
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EXAMPLE OF READ/SAVE USAGE 

The Read/Save routines may be incorporated directly into a main program. 
To illustrate this a test program is listed in example 2. This program dimensions 
a variable array of twenty by one, fills the array with numbers, writes the data 
table to tape, and then reads the data from tape listing the data on the video 
display. To get a feeling for how to use these routines enter this program and 
explore how the Read/Save routines work. 

CONCLUSION 

Reading and Saving data in the format of a variable table is a relatively 
straight forward process with the Read/Save subroutine listed in figure 4. This 
routine will increase the flexibility of the Apple II by providing a permanent 
record of the data generated within a program. This program can be reprocessed. 
The Read/Save routines are a valuable addition to any data processing program. 
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Var 1 


Var 2 Var n 


Unused 














Memory 


Pi 


P 2 


P3 • 


•• Pn-2 


Pn-1 


Pn 



LOMEN: 
$800 



^\ 



b a 
Variable Data BASIC Program 



Figure 1 



a) PRINT PEEK(204) + PEEK(205)*256 PP 

b) PRINT PEEK(202) + PEEK( 203 )*256 CM 



Figure 2 



800 


801 


802 803 


804 805 


806 


807 


808 809 


80A 80B 


80C 


CI 


00 


06 08 
L H 


FF FF 
L H 


C2 


00 


OC 08 
L H 


00 00 


00 


VAR 


DSP 


NVA 


DATA 


VAR 


DSP 


NVA 


DATA 




NAM 




I 


* 


NAM 
1 




If 


—> 


t 



Figure 3 

$800. 80C rewritten with labelling 



/ \ 

CM Hn/H of ID 



CM End of 
Variabl e 
Table 



PP beginning 
of 

Program 



HIMEM 

Max System 
Size 



39 



FIGURE 4b 



READ/SAVE PROGRAM 



COMMENTS 



A=0 



This must be the first statement in the 
program. It is initially 0, but if data 
is to be saved, it will equal the length 
of the data base. 



10 GOTO 100 



20 PRINT "REWIND TAPE THEN 

START TAPE RECORDER": 

INPUT "THEN HIT RETURN", 
B$ 



This statement moves command to the main 
program. 

Lines 20-26 are the write data to tape 
subroutine. 



22 A=CM-LM: POKE 60,4: 
POKE 61 ,8: POKE 62,5: 
POKE 63,8: CALL -307 



24 POKE 60, LM MOD 256: 

POKE 61, LM/256: 

POKE 62, CM MOD 256: 

POKE 63, CM/256: 

CALL -307 



Writing data table to tape 



26 PRINT "DATA TABLE SAVED": 
RETURN 



Returning control to main program. 



30 PRINT "REWIND THE TAPE 
THEN START TAPE RECORDER' 
INPUT "AND HIT RETURN", 
B$ 



Lines 30-38 are the READ data from tape 
subroutine. 
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POKE 60,4: 
POKE 62,5: 
CALL -259 



POKE 61 ,8: 
POKE 63,8: 



34 IF A<01 THEN 38: P=LM+A: 
IF P>HM THEN 38: CM=P: 
POKE 60, LM MOD 256: 
POKE 61 , LM/256: POKE 52, 
CM MOD 256: POKE 63, CM/256: 
CALL -259 



Checking the record length (A) for memory 
requirements if everything is satisfactory 
the data is READ in. 



36 PRINT "DATA READ IN": 
RETURN 



38 PRINT "***TOO MUCH DATA 
BASE***": RETURN 



Returning control to main program. 



NOTE: CM, LM and A must be defined within the main program. 
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1 >A=1 

> 

2 B=0 

> 

3 >PRINT PEEK (204) + PEEK 
(205) * 256 

computer responds with= 
2060 

4 > 

5 *800.80C 



Define variable A=-l , then hit RETURN 



Define variable B=0, then hit RETURN 



Use statement 2a to find the end of 
the VARIABLE TABLE 



Hit the RESET key, Apple moves into 
Monitor mode. 

Type in VARIABLE TABLE RANGE and HIT 
the RETURN KEY. 



Computer responds with: 
0800- CI 00 86 08 FF FF C2 00 
0808 0C 08 00 00 00 



Example 1 
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Example 2 



>LIST 
9 A=6 

18 GOTO 188 

m : . ' we i 

83 R=CH-LH i POKE 68,4: POKE 61 
,8; POKE 68,5; POKE 83,8: CALL 
-387 

£4 POKE 68,Ln NOD 858; POKE 61 

I e ."jhi ; DHL-"'!! -ZZ- f*s sf-r-. O^ii 

£6 RETURN 

33 POKE 68,4: POKE 61,8: POKE 
63,5: POKE 63,8= CALL -859 

34 IF A<8 THEN 38:P=L«+fl: IF P> 

HI THEN 38: CH=P: POKE 68, in MOD 

,Cn HOD 356: POKE 63,CM/356 
: CALL - 359 

38 PRINT l m TOO HUGH DRTfl BASE ** 

* 1 ; END 
186 Din A$(1),H(38) 
185 FOR 1=1 TO 36:K(I)=I; NEXT 
I 

1 68 LM =8648 : CM =3 1 66 ; A= 58 ; HH = 1 6383 



IRS GENERATED' 



THE DATA 5 : PRINT HiiHEH YOU ARE R 
ERDV START THE RE80RDER IH RE80R 
D MORE 5 ; INPUT 'AND HIT RETURN 1 
,Af 

136 CALL -936; PRINT g HOilj URITIHG DA 
135 PRINT TO" THE DATA IS SAVE 1 

148 - : :-" i: : are g . :_: : 

THE X<28> TABLE AND READ THE DA 

TA FROM TAPE 5 
158 FOR 1=1 TO 28:X(I>: NEXT I 
168 PRINT 'NOW START TAPE RECORDER 5 

: INPUT 5 AND THEN HIT RETURN' 

M 

165 PRINT 5 A 5 ,A 
178 GOSUB 38 

188 PRINT 5 ALL THE DATA READ IN 5 

198 FOR 1-1 TO 88: PRINT 5 H( 5 ;ij 

'}='jX<I>: HENT I 
195 PRINT 5 THIS IS THE EHD 5 
888 EHD 
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A SIMPLE TONE SUBROUTINE 



INTRODUCTION 

Computers can perform marvelous feats of mathematical computation 
at well beyond the speed capable of most human minds. They are fast, 
cold and accurate; man on the other hand is slower, has emotion, and makes 
errors. These differences create problems when the two interact with one 
another. So to reduce this problem humanizing of the computer is needed. 
Humanizing means incorporating within the computer procedures that aid in 
a program's usage. One such technique is the addition of a tone subroutine. 
This paper discusses the incorporation and usage of a tone subroutine within 
the Apple II computer. 

Tone Generation 

To generate tones in a computer three things are needed: a speaker, 
a circuit to drive the speaker, and a means of triggering the circuit. As it 
happens the Apple II computer was designed with a two-inch speaker and an 
efficient speaker driving circuit. Control of the speaker is accomplished 
through software. 

Toggling the speaker is a simple process, a mere PEEK - 16336 ($C030) 
in BASIC statement will perform this operation. This does not, however, 
produce tones, it only emits clicks. Generation of tones is the goal, so 
describing frequency and duration is needed, This is accomplished by toggling 
the speaker at regular intervals for a fixed period of time. Figure 1 lists 
a machine language routine that satisfies these requirements. 

Machine Language Program 

This machine language program resides in page of memory from $92 (2) 
to $14 (20). $00 (00) is used to store the relative period (P) between 
toggling of the speaker and $01 (01) is used as the memory location for the 
value of relative duration (0). Both P and D can range in value from $00 (0) 
to $FF (255). After the values for frequency and duration are placed into 
memory a CALL2 statement from BASIC will activate this routine. The speaker 
is toggled with the machine language statement residing at $02 and then a 
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delay in time equal to the value in $00 occurs. This process is repeated until 
the tone has lasted a relative period of time equal to the duration (value in $01) 
and then this program is exited (statement $14). 

Basic Program 

The purpose of the machine language routine is to generate tones controllable 
from BASIC as the program dictates. Figure 2 lists the appropriate statement that 
will deposit the machine language routine into memory. They are in the form of 
a subroutine and can be activated by a GOSUB 32000 statement. It is only necessary 
to use this statement once at the beginning of a program. After that the machine 
language program will remain in memory unless a later part of the main program 
modifies the first 20 locations of page 0. 

After the GOSUB 32000 has placed the machine language program into memory 
it may be activated by the statement in Figure 3. This statement is also in the 
form of a GOSUB because it can be used repetitively in a program. Once the frequency 
and duration have been defined by setting P and D equal to a value between 
and 255 a GOSUB 25 statement is used to initiate the generation of a tone. The 
values of P and D are placed into $00 and $01 and the CALL2 command activates the 
machine language program that toggles the speaker. After the tone has ended 
control is returned to the main program. 

The statements in Figures 2 and 3 can be directly incorporated into BASIC 
programs to provide for the generation of tones. Once added to a program an 
infinite variety of tone combinations can be produced. For example, tones can 
be used to prompt, indicate an error in entering or answering questions, and 
supplement video displays on the Apple II computer system. 

Since the computer operates at a faster rate than man does, prompting can 
be used to indicate when the computer expects data to be entered. Tones can be 
generated at just about any time for any reason in a program. The programmer's 
imagination can guide the placement of these tones. 

CONCLUSION 

The incorporation of tones through the routines discussed in this paper 
will aid in the humanizing of software used in the Apple computer. These routines 
can also help in transforming a dull program into a lively one. They are relatively 
easy to use and are a valuable addition to any program. 
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FIGURE 1. Machine Language Prog 
adapted from a program by P. Lutas. 



: : !'--HHH PUKt = PUK.t 6,46; PUKt 

; POKE 7,4; P6KE 8=198; POKE 
? r ll PUKt 16,646' 
82895 POKE 11,8; POKE 18,288: POKE 
16,666; PUKt 14=646; PUKt 15 
,16b: PUKt lb, 8; PUKt IK, i'6 
; PUKt 16, 6; PUKt ly.B; PUKt 
£9,96; RETURN 



FIGURE 2. BASIC "POKES" 



85 POKE 9,P: POKE i,D; CALL £: 
RETURN 



FIGURE 3. GOSUB 
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High-Resolution Operating Subroutines 



These subroutines were created to make programming for 
High-Resolution Graphics easier, for both BASIC and machine, 
language programs. These subroutines occupy 757 bytes of memory 
and are available on either cassette tape or Read-Only Memory 
(ROM). This note describes use and care of these subroutines. 

There are seven subroutines in this package. With these, 
a programmer can initialize High-Resolution mode, clear the screen, 
plot a point, draw a line, or draw and animate a predefined shape, 
on the screen. There are also some other general-purpose 
subroutines to shorten and simplify programming. 

BASIC programs can access these subroutines by use of ,the 
CALL statement, and can pass information by using the POKE state- 
ment. There are special entry points for most of the subroutines 
that will perform the same functions as the original subroutines 
without modifying any BASIC pointers or registers. For machine 
language programming, a JSR to the appropriate subroutine address 
will perform the same function as a BASIC CALL. 

In the following subroutine descriptions, all addresses 
given will be in decimal. The hexadecimal substitutes will 
be preceded by a dollar sign ($). All entry points given are 
for the cassette tape subroutines, which load into addresses 
C00 to FFF (hex). Equivalent addresses for the ROM subroutines 
will be in italic type face. 
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High-Resolution Operating Subroutines 



INIT Initiates High-Resolution Graphics mode. 
From BASIC: CALL 3072 (or CALL -12288) 
From machine language: JSR $C00 (or JSR $D000) 

This subroutine sets High-Resolution Graphics mode with a 
280 x 160 matrix of dots in the top portion of the screen and 
four lines of text in the bottom portion of the screen. INIT 
also clears the screen. 

CLEA R Clears the screen. 
From BASIC: CALL 3886 (or CALL -12274) 
From machine language: JSR SCOE (or JSR $L000E) 

This subroutine clears the High-Resolution screen without 
resetting the High-Resblution Graphics mode. 

PLO T Plots a point on the screen. 
From BASIC: CALL 3780 (or CALL -21589) 
From machine language: JSR $C7C (or JSR $L107C) 

This subroutine plots a single point on the screen. The 
X and Y coodinates of the point are passed in locations 800, 
801, and 802 from BASIC, or in the A, X, and Y registers from 
machine language. The Y (vertical) coordinate can be from 
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High-Res! out ion Operating Subroutines 



PLOT (continued) 

(top of screen) to 156 (bottom of screen) and is passed in 
location 882 or the A-register; but the X (horizontal) coordinate 
can range from (left side of screen) to 279 (right side of screen) 
and must be split between locations 800 (X MOD 256) and 802 
(X/256).or, from machine language, between registers X (X LO) 
and Y (X HI). The color of the point to be plotted nust be set 
in location 812 ($32C). Four colors are possible: is BLACK, 
85 ($5S) is GREEN, 170 (?AA) is VIOLET, and 255 ($FF) ie WHITE. 

POSH Positions a point on the screen* 
From BASIC: CALL 3761 (or CALL -11S99J 
From machine language: JSR $C26 (or JSR $D026) 

This subroutine does all calculations for a PLOT, but does 
not plot a point .(** leaves the screen unchanged). This is useful 
when used in conjunction with .LINE or SHAPE (described later). 
To use this subroutine, set up the X and Y coordinates just the 
sane as for PLOT. The color in location 812 ($32C) is ignored. 

LINE Draw a line on the screen. 
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High-Resolution Operating Routines 

LINE Draws a line on the screen. 

From BASIC: CALL 3786 (or CALL -11574) 

From machine language: JSR $C95 (or JSR $i>f?$S) 

This subroutine draws a line from the last point PLOTted 
or POSN»ed to the point specified. One endpoint is the last point 
PLOTted or POSN'ed; the othor endpoint is passed in the same »ann«r 
as for a PLOT or POSN. The color of the line is set in location 
812 ($32C). After the line is drawn, the new endpoint becomes th« 
base endpoint for the next line drawn. 

SHAPE Draws a predefined shape on the screen. 
From BASIC: CALL 3805 (or CALL -1155$} 
From machine language: JSR $DBC (or JSB $D1BC) 

This subroutine draws a predefined shape on the screen at 
the point previously PLOTted or P0SN«ed. The shape is defined 
by a table..of vectors in memory. (How to create a vector table 
will be described later). The starting address of this table 
should be passed in locations 804 and 805 from BASIC .or in'ithe 
Y and X registers from machine language. The color of the shape 
should be passed in location 28 ($1C). 

There are two special variables that are used only with shapes: 
the scaling factor and the rotation factor . The scaling factor 
determines the relative size of - the shape. A scaling factor of 
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Hi fh-Resolution Operating Subroutine 



SHAPE (continued) 

I will cause the shape to be drawn true sire, while a scaling 
factor of 2 will draw the shape double size, etc. The scaling 
factor is passed in location 806 from BASIC or $32F from machine 
language. The rotation factor specifies one of 64 possible angles 
Of rotation f»r the shape. A rotation factor of will cause the 
shape to be drawn right-side up, where a rotation factor if 16 
will draw the shape rotated 90° clockwise, etc. The rotation 
factor is passed in location 807 from BASIC of in the A-register 
frOB machine language. 

The table of vectors which defines the shape to be drawn is 
a series of bytes stored in memory. Each byte is divided into 
three sections, and each section specifies whether or not to plot 
a point and also a direction to move (up, down, left, or right). 
The SHAPE subroutine steps through the vector table byte by byte, 
and then through each byte section by section. When it reaches 
a H byte, it is finished. 

The three sections are arranged in a byte like this: 

, , n oV- Wove. T* 

Err s 1 4 ! * * i » 1 • I et - -» 

Each bit pair DD specifies a direction to move, and the two bits 
P specify whether or not to plot a point before moving. Notice 
that the last section (most significant bits) does not have a P 
field, so it can only be a move without plotting. IThe SHAPE 
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Hiph-Resolution Operating Subroutines 



SHAPE (continued) 

subroutine processes the sections from right to left (least 
significant bit to most significant bit). IF THE REMAINING SECTIONS 
OF THE BYTE ARE ZERO, THEN THEY ARE IGNORED. Thus, the byte 
cannot end with sections of 00 (move up without plotting). 

Here is an example of how to create a vector table: 



Suppose we want to draw a shape like this: 



9 
* 



* m 









First, draw it on graph paper, one dot per square. Then decide 

where to start drawing the shape. Let's start this one in the center, 

Next we must draw a path through each point in the shape, using 



o . 
only 90 angles on the turns-t 



Next, re-draw the shape as a series of vectors, each one moving 
one place up, down, left, or right, ^J}^J^ sh th * vectors that 
plot a point before moving: 




Now "unwrap" those vectors and write *thein in a straight line. 



Now draw a table like the one in Figure 1. For each vector in the 
line, figure the bit code and place it in the next available section 
in the table. If it will not fit or is a ?0 at. the end of a byte, 
then skip that section and go on to the next. When you have finished 
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Hiph-Resolution Operating Subroutines 



SHAPE (continued) 

coding all vectors, check your worV to make sure it is accurate. 
Then maVe another table (as in figure 2) and re-copy the coded 
vectors from the first table. Then decode the vector information 
ijlt o a series of hexadecimal bytes, using the hexidecimal code 
table in figure 3. This series of hexadecimal bytes is your shape 
definition table, which you can now put into the Apple II«s memory 
and use to draw that shape on the screen. 
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• : -> HIPES DLmHTiSIB LISTING 
>LIST 

irLiN^ii'oiSzLinL-iz'ic'inlir'L^ 
DIh Mi8.;,V70; 

ie tent i mi -mi viRfi 4: m 

10; PRINT : w 7 SFFlE II * * * 
; FRI;7 ^ fiLEr 77 T 
REPRICE DEMOS m s i PRINT 

.: FF7T I EF^DBr LI;iE P" : 7 : 
IC SPEED 5 ; PRINT 7 RhNDC!! : -- : E 
PRuJECTED IMTu " ' : ' r: 

bj rK:Ni 7 L,HrUj" r<Jiil"\ 



W 



E5 . . Vr- , -77 
'7 RBNDB^ - : 7 r ' ; ; 

7 sun op two sine yp¥PS ;; 

"7 :7. : FE77 - : 77 Ph. • ; . • N 
L*? rkiili "nri : L-Ur-i ? kOL t 

L sLiuriil Mi; luh inLFi i tFl i 



17 WiHi J jiii 
••' IF sUU OR M7 ThEH ■ COLL 

\m Chll IH!T:H^8r/=P: 80800 £886 

HP ' m im)\P END !1G0); 00E0B 
7:7 CELL LINE; IP NET PHD 

mE.ii rur'i. l-3,\ hi:?, : -. 

7 - RND (SHI) NED 4 : ^E5; GOSyF' 
3808; SOTO HE 

fNu i.c.f-'ij'/i im.i. rLul! rui\ 

" 7 :.. . TO P; PETE 



7:7 7.. ..; .... 



" 7 IF END (580)7 THEN POKE 7 
.. RND lim\l^mmi IF 
' i m nm ;u. i7- 
IF Kg TNEn W+ 
31S; GG5UB GOTO 516 

: 7- POKE 1 : 7,v: FO^E 77; PukE 
i..,. POKE 70. :7; POKE 7; 
■ POKE 71,o; POKE S£4 f 0: 
POKE 895,3: POKE „..7" CHLL 
P0SN 

f-'. v"! r'.'r.L Gii'.J -71' 



7"; :- R7 : "7- F;j; = £■ 

: -.-5-jJ* diL; ^7;t 

>■ ■ :" Mi 



LINE 



800 IwFlT ? REL FRES li=%J; INPUT 
!i R7L FfiES fS-l; InFOI 3 M0I7 (8 
-SOLID, ^FOINTSiU 

BIO GOSUB 4808; GuSUti 7V; GOTO 

1660 CRLL OLEPR; POKE END i 
; -7-,:. - END ii)Ht m 
CP); FOR I=i TO iMD- END 
tl«)!Y(I)= END 77;; HE^T 

1810 ML\h'm\): GOSyt 77: RETURN 
E088 POKE SOB J HOD 7-'; POKE 881 
- . : 7: POKE fiSP.Vi RETURN 

8888 IF PFFk M£334Xi25 THEN RETURN 

• POKE : - ^ 7: POP ; GOTO 

4000 CfiLL INIT; POKE 7 ; ,::37-: 
• : -7 FOE i=0 TO 7"-P 7-, 
HOD m^im) m -'"7.- 
! PEEr: (SINTBL+RH PEEL -7l- 
B)5*5/1F 

4@18 POKE S007 m E56; POKE CO! 

• ' : "7 F0EE 00E7: CfiLL LIHE- 
W. m I OR L7 NELT h LETLRN 



fii8 uv^miHmnmuiiH 

i.i- 7-. 77; ; OT ..... 077 

3888; GOTO m 
m CfiLL . ■ : ;- RHD <E4 >*Ifl^2& 

;l= RND (i4}*i@t£8= POKE SI? 

, m (35=85+85: GOSOB >.i 

; COLL PLOT 
310 IF RND U8MKI THEN 7(- IF 

HUT RND (£80) THEN POKE £3, 

m am 

EEC n=M m 7 

KW i3}-l)*15: IF Xl<3 OR 

mm or vi(0 op tdigothen 

7E 

330 7 G0SUE E08O; CfiLL 

LINE; GOSUfi 3008; GOTO 310 
433 G0S0B -77 POKE 8!E, RND ( 

3)^00105; CfiLL PLOT 
418 FOR J=l TO FOR 1=1 TO 7 
POKE 888 ? HiIi HOD 055: POKE 

88U>E58; POKE 882, if! I); CFiLL 

LINE 

4E0 ^Cx!l73BHY(IH8)/0)Wi8 
^■30;Y!I)=!y(I7fiO-(ni;-88) 
c .7v .,):;a.." '•' KEXT I, 
-I; bOSLie 3000; 3GTC 488 

SCO CfiLL INIT; POKE 308,0; CHLL 
: 77-,. -l;75 : - 7^;:-- 
••777;. 7 

810 POKE 3007: POKE SOLO; POKE 
OOP, V: COLL LINE; POKE SCO, 
(2P57x; FiOD E5E; POKE EOUi 
24: POKE 888,150; CRLL LINE: 
POKE 008,03; POKE 77. ' PQKL 
7771-- : CRLL LINE 

515 IF m (588i THEH ;7-7- - RKD 

•'• ii-- m iO);CMt 
(?) 

5EO POKE OOO.X NOD ....... POKE 301 

, POKE 332,0; CfiLL LIHE; 
^XtKDIR*fi: IF H)=8 RND K(EB0 
THEN 530:NDIR=-i§IR:K-X; IF 
m THEN :^:7553 
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ROD'S COLOR PATTERN 



PROGRAM DESCRIPTION 

ROD'S COLOR PATTERN is a simple but eloquent program. It generates a 
continuous flow of colored mosaic-like patterns in a 40 high by 40 wide 
block matrix. Many of the patterns generated by this program are pleasing 
to the eye and will dazzle the mind for minutes at a time. 

REQUIREMENTS 

4K or greater Apple II system with a color video display. 
BASIC is the programming language used. 



PROGRAM LISTING 




'■fv h 
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PROGRAM LISTING: PONG 



5 -:r PONG V HENDELL BITTER 

i* rem " 

is m ?md switches control 

FfiMLE SIZE AFTER H HISS 
OR DURIHG fi HIT 

30 GR 

£= dim F(3>! m m.m 
30 

' HUN .." FT 8: HLIH 

i ,3a FT '■■ 

ail OR m ? SKPi 
"• INPUT s FlmE SIZE U4) % 
PS: IF PS<I Qfi PS>5 THEN 45 

5b CmLL .... 

55 IF HFi;i)l 5 h :i TriEh .;: 
■, r ; alN-GJO Hi 

..; GOTO £65 

:: FOR M TG 3 STEF C 

\ • - : I- i - .: "- 

GO; IF 'v,\ TdtM •.. IF T>33 

TriLn ".'J 
75 PGR .-. TG ;; -- IT 

i - It jjij iHLM i 
■ ■ j i 

:: IF -. Z-* " : ? -I 

HEKT H 
ST GGSiiG il: 

;b ir 5^sMiSii+yn (WW ilfii* 

V>-l))-6 THEN 165 

1 il C rUS i = i iii liihr rLi.fi ^"i-sJi'b 

): HEX! I 

■" IF • • THE;; iib 

1 19 FP=P(^38) 

lis T PrT ! ritH V-Si ir i^rf^i 

! 



:?f IF THEN IF ..F : * 

4 -'; IF . THEN 

'15 IF S z -; '-O' t':- }:[• il- 

if s m x=8) THEH V=4- Rffi 

5 theh f i-. 

155 IF PEEK -Til" ..." Si 

THEN 
M GOTO :; 

165 COLOP-6: PLOT K,Y 

IPO C0L0R Z 15; PLGI ji.Y+WY+Vf- 

1 m .-. 

ITS FOE • ; TO ?5;Fj= PEEK (-IG33G 

)+ PEEK (-16336)- PEEK . 

): HEITT T 
100 IF -i THEN SR=Sfi+Is IP ,m 

THEN SL z 3L+l 
1G5 VTRB S3; TRB Pi PRINT Sin THE 

33; PRINT 5R 
193 CGLGR=8; PLGT X-C.Y 
135 IF SL=15 OR 58=15 THEN 3G0 
EGO C0LCR=B; PLOT X,Y+V*m¥M 

m ;mm 

305 FOP M TO •:; IF T HOG 510 
THEN 213: IF PEEK (-16206) 
>137 fiffi SI5 THEN .-_>.: IF 

peek i-ibP3P)/iPF m sie then 

SiS GGSUB HEkT I 
£15 VT=F((i)i IF TFiEN S 
1 

330 IF . THEN VV= RND (37H1 
335 ¥=1- RND i3) 
338 GOTO 65 



335 IF H THEN 245;Puf(( PDL ( 
1H4)^8)/I15i IF Fai-F(3 
) THEN £45i IF P(!X8 TNEH 
K( i)-G: IF Hi^m THEN h 

.r-V:-: 

Lis i-6i.0R-i: VLln r' , . -I *|T 
Li/i_LfK = «; Ir F( I si-',-: )1 'hL'i 
vl^ O.Pvi -1 FT IT: 1^ z :l 
F!3; Tr.Er- ?lI I ' _ ■+;'■{ f 3: 
sis .-s/iri-j f-ri 1 
3i5 f PI^ ,3 -;4,-FsWi: 
. IF POKfl THLh rI8)-^: IF 
riS/ z "^c> IflLli RuliRn ! 11" 
ihEii r\ «;-.j7-j 
ilJ^ VLih ■ • .■':*• t : , ; T 

I- GOllK-G; I 1 F- \ ■ ■-• t'< TiiEii 

'iLlA .' , ; "i nT S: IF C 

<P(E) THEH ^LIH . >' t"-:,"; 1 

Hi fl 

355 COLOR-fl; IF PIG)>Pi3) THEN 

ytiH -:: g ; if 

(Pi?; THEN VL1H pfeHStUSR 
fiT. 8:P^i=F(fl>: RETURN 
263 PRINT END 
365 END 
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COLOR SKETCH 



PROGRAM DESCRIPTION 

Color Sketch is a little program that transforms the Apple II into an 
artist's easel, the screen into a sketch pad. The user as an artist 
has a 40 high by 40 wide (1600 blocks) sketching pad to fill with a 
rainbow of fifteen colors. Placement of colors is determined by 
controlling paddle inputs; one for the horizontal and the other for 
the vertical. Colors are selected by depressing a letter from A through 
_P on the keyboard. 

An enormous number of distinct pictures can be drawn on the sketch pad 
and this program will provide many hours of visual entertainment. 

REQUIREMENTS 

This program will fit into a 4K system in the BASIC mode. 
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PROGRAM LISTING: COLOR SKETCH 



5 POKE £,173] POKE 3,48: FQKl 
4,192: POKE 5,165: .POKE M 
: POKE 7,32: POKE 3,138: POKE 
9,252; POKE 18,165: POKE it 
f i: PDKl 1E,268: POKE 13,4 
IB POKE 14,198: POKE 15,24: POKE 
16,248; POKE 17,5: POKE IB, 
193; PUKE 19,1: POKE 28,76: 
POKE El,2: POKE tt.fr.WH 
23,33- 

15 uln Bii4o): im . lhLL -936 

. GOTO. 30 
£0 CALL -93b: GOTO 90 
£5 fl= LEN(Bi): FOR TO fi: GOEUB 
65: PRINT ^£,7 :: HEXT 2: 

GOSJB 7S: RETURN 

*-i^:'«'; RETURN 
35 BGCOLOR SKETCH':. RETURN 
40 z - :ir?.IU:7 RFPLE COnPUTLK 19? 

ri return 

45 8t= n THIS FROGRfili RLLQ^S YOU TO 3 
: ftETURK 

50 Bt^SKETCH COLORES FIGURES IH" 
: RETURN 

55 U='im RESOLUTION GRRPHICS sITH 

PhDDllS 8 : return 
58 o:-^., G05UE 85: RETURN 

55 i --it-. 6- GOSUB 85: RETURN 

70 KK=£B:T0H=5B: GOSUB 35:KK=38 

gosub lz; return 

75 KK-?3:T0h=£g: GuSSJB 35: RETURN 

33 -izi; bOSUB S5:KK=9 

:;,- : ": 05: RETURN 



35 POKE l.TGK KCD 256: POKE 24 
,TDN/256H: POKE 8,KK: ChlL 
h RETURN 

39 505UB 33: GGSI>e £5; PRINT : 
TUB 13: E0S1TB 35: G05UB 35 
: PRINT : GOSUB 3s: GOSUB 25 
: PRINT : TRB 5: GOSUB 40: GOSUB 
35: PRIHT : GOSUB 30: GOSuS 
25 

95 PRIm : GOSUB 70: GOSUB 45: 
GOSUB 35: PRINT ,• GOSUB 50 
: GOSUB E5: PRIHT : GOSUB 55 
: GOSUB E5: PRINT 
100 PRINT : PRINT : GOSUS 7B: INPUT 

"ma mm hit returh'.b* 

135 

US = 5 RBCBEFGHI JKLfSNOF " ; ChlL 
-935 

115 FOR M TO 15: CGL0R=2: PLOT 
:::-%3.: vTRB 21: 30533 75 
: T8B 2*2*5: PR 1HT Bt(2H,Z+ 
GOSUB 75: NEWT 2: Th8 

1 

123 m 32:3$= a TYFE R LETTER TO OH 
RNGE COLOR, 5 : GOSUB 25: PRIHT 
:B(='TYFE SPACE W. TO STOP PLST 
.*: GOSUB 25: PRINT 

,:: Y= PDL j ;i)t-03/E55;K- POL (0 
m/m VTRB 34: TS-B 1: PRINT 
"CURSOR POSITION: ; .- 
2 ;: 

136 if PEEK H6384)>127 THEK 145 
: IP -i^; AND Yl=V THEN 1P5 
: CGL0E=C2; PLOT SLY!: IF 
NOT FLPG TNEH 135: COLOR-C: 
PLOT X,Y 



135 32- SCRNti(,Y):C3-15: IF 02= 
15 THEN 13=5: CG10R-C3; PLOT 
X t V:sl=K:Ti=T 

148 GOTO 125 

145 IF PEEK (-16384)1168 THEN 155 
:FLhG=3: POKE -16333,8: POKE 
34,23: COLORS: HLIN 0,39 P,T 
39: OREL -936 

153 PRIHT ^-CONTINUE OR STOP 5 
: VTRB 24: GOSUB 25: INPUT 

5 <CS) -,hh if 

TNEH 110: PRINT W: END 

155 FLfiG-l:C= PEEK (-16384M33 
: POKE -13363,0: GOTO IPS 
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MASTERMIND PROGRAM 



PROGRAM DESCRIPTION 

MASTERMIND is a game of strategy that matches your wits against Apple's. 
The object of the game is to choose correctly which 5 colored bars have 
been secretly chosen by the computer. Eight different colors are possible 
for each bar - Red (R), Yellow (Y), Violet (V), Orange (0), White (W), and 
Black (B). A color may be used more than once. Guesses for a turn are 
made by selecting a color for each of the five hidden bars. After hitting 
the RETURN key Apple will indicate the correctness of the turn. Each white 
square to the right of your turn indicates a correctly colored and positioned 
bar. Each grey square acknowledges a correctly colored but improperly posi- 
tioned bar. No squares indicate you're way off. 

Test your skill and challenge the Apple II to a game of MASTERMIND. 

REQUIREMENTS 

8K or greater Apple II computer system. 
BASIC is the programming language. 
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PROGRAM LISTING: MASTERMIND 



; IB mi of ; :r ^ : - : ;-\ 

• - Jl?- ' : . '. d •••••• 

: X< S J=5s X*= " EGRrVOUX * 

30 luA , CM • PRINT 5 



uelog 

HE 15 THF GfillE OF MSTERNINBi 
YOUR OBJECT IS TQ GUESS 5 COLOR 

s tyHlcr 

33 T-T "I .. mi JP? IN ~-I NT 
• : '. N.". " GF ,.. v.". ThES 

: :: : sicm " : tg 

CHOSE FROrl a = 
*fi FEINT ' 

FEWER Tririli 7 GUESSES-FxO 

ELLEnT": PRINT s ? TO 3 Gb'ESSE 

S GOOD 3 : PRINT ■ n TG 14 G 

CESSES — RvERRGE" 

50 PRINT 'HQEE THhh 14 GUESSES-POO 
p 



2m i-TRv*? m 7 -.: 
TB6 .,; PRINT T8Y;: COLOR: 
8; HUN fl; FLREH-i i rGS 
H=i TO • -- G03U3 IGGO 
: HEXT 

"-: FCR KfitT=l TC iU;KLT- PEEk 
(46334): IF - r THEN 310 
: POKE •-"•-.S5i-:; FOR 
1=1 TG Si IF KEVO flSUXSfti 

) then neyj i- if 1=9 then 
518 Gushes if key=141 then 

466; IF -I'.- .':: FiND HM OR 

F,; ji<6 THEN N=Nt(TY/ 
5-E3: NExT uhJ7: FLFiSri=i— FLfibH: 
GOTO 388 
m :C FOR 14 ":" 

D(I)=tfI):J=I; GG3UB £300= HEXT 
I: IF K=5 ThFh 5fe: GOLGfi-5 
; FOR TS ": FOR 1=1 TO 

5; gosub mm m goto 
m 

580 PRINT : PRINT • 
TOG ggt it in s 

; TRIES IF TRY<? VL 
PRINT • • TP TRi > 
b" RND TKYiia THEN PRINT V."' 



30G« REN CALL -3S4 SETS INVERSE VIC 
Sate REM CRLL -388 SETS HOkHHL m 

tm m peew-15334? is m mm) 

(IF ) THEN STROBE SET) 
3838 REN FGKE-1&S88 GLRS KBD STROBE 

• m .<■■ • . screen m 

TRBS CURSOR " UPPER LEFT, 
3053 REfi IN 318, :. :,- -i OR tl 

(HfiPGTi KEY=138 .,• 143 PSCII) 
4^88 m STMTS INTRO 
4818 KEN STHTS 188-1)8 HEW SETUP 
48E8 REfi STMT 388 NEN GGESS 
4838 REM STMTS 388-310 USER IHPUT 
4048 m 5THT 488 GUESS EVRL 
48;6 REN STMTS 508-510 UIH 
4688 REN EUBR 1888 COLOR LINE 
4878 REN SjBR 2888 NRTCN TEST 



: CRLL -384; Tfig 7; PRINT 

fiHY KEY TO BEGIN FLfff" 

188 CRLL -338; IF PFEk (-13334) 
■■.lie ini.fi - . : : -.<....!. . 
8; GR ; PRINT , FOR 1=1 TO 
s=Cu)= RND ;- : COLORS 
I = n'.h I^-S,->4 FT in pr>:; 

s • .. .:; ; , r 

i [IT 1 1 J 1 .- = z Hiwfl I L 

lib ifiT-s: rNiNl ; PRINT * LETTER 
KEYS FOR COLOR CHANGE"; PRINT 

mm KLVb i . ■' ftiiVfiNOE RND F'-i 
i.^. = ' nis =!.■:! -jfifi mJ riCC 

EFT GilESS r; 



FFIhT P-SC? ! ;; 'flf-T \' ; GFlL 
-304;' IRE 5; PRINT ^IT PiNY KEY 
il PLn? nuni'i I j.-. j i by 

".-:8; IF r,-S T"E- : ET'jSN ; GGt-Gf= 
»Fi -£,-; H£4-?.,N* 
4 FT Y: RETURN 

iw6 IF FT- .yi; ;iEN RETiR,, , 
N=N+1; PLOT iim/ii PRINT 
' ;:;V. -, ; [ir--S: RETURN 
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PROGRAM DESCRIPTION 

This program plots three Biorhythm functions: Physical (P), Emotional (E), 
and Mental (M) or intellectual. All three functions are plotted in the 
color graphics display mode. 

Biorhythm theory states that aspects of the mind run in cycles. A brief 
description of the three cycles follows: 

Physical 

The Physical Biorhythm takes 23 days to complete and is an indirect indicator 
of the physical state of the individual. It covers physical well-being, basic 
bodily functions, strength, coordination, and resistance to disease. 

Emotional 

The Emotional Biorhythm takes 28 days to complete. It indirectly indicates 
the level of sensitivity, mental health, mood, and creativity. 

Mental 

The mental cycle takes 33 days to complete and indirectly indicates the level 
of alertness, logic and analytic functions of the individual, and mental recep- 
tivity. 

Biorhythms 

Biorhythms are thought to affect behavior. When they cross a "baseline" the 
functions change phase - become unstable - and this causes Critical Days. These 
days are, according to the theory, our weakest and most vulnerable times. Acci- 
dents, catching colds, and bodily harm may occur on physically critical days. 
Depression, quarrels, and frustration are most likely on emotionally critical 
days. Finally, slowness of the mind, resistance to new situations and unclear 
thinking are likely on mentally critical days. 

REQUIREMENTS 

This program fits into a 4K or greater system. 
BASIC is the programming language used. 
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PROGRAM LISTING; BIORHYTHM 



5 POKE 2,173: POKE 3,45: POKE 
POKE 5,165; POKE U 
: POKE :,k: POKE S 3 1SS; PGKE 
;.i:L; POKE 16,165] POKE 11 
,1: POKE POKE 13,4 

10 POKE 14,198! POKE 15 ? B4; POKE 
16,040: POKE 17,5; POKE 10, 
150= POKE POKE ir. .; 

poke ;:;,r ; poke ep,6; poke 

03,36 . 
15 GOTO 05 

GOiUB RFTURK 
B5 FRIm s i 



■~\ mm 



M GOSUE 45: REM 

P5 ?'-i;>-£:s: QOSdB 45: REIJfiH 
.■'-■:"r^i:-i:! GCHlE -s5:f^ : 

:7-?--;:-"] 'E t ijRi 

45 "M ,-".v £:■;■: F0 ; : E4 
-i5b-I: FEfE ;,fs: '.-Ji 
i: ips 
5 ! : P- .'r-.r 1 -;; 1 ■ liv 

Cw)mPn86>C(i)ffip*iMy(= 

^:.;:.«., : - ; ilK>I. :P0*E( 

55 * z ^- is;. . ~ Yi- : ■ P- 
:i;-?fO i 5 ■■ idi*; : ";i 
H=3WH>3})+R*ifi<4B): kETURN 

68 SOSUB 70;KK=9: 

, ■-,:■>:■■. 005UB 78: RETURN 
65 r>-"-7r-;; : GGSUB 70: RETURN 



pp poke im m est; poke 

Tii/F5fcti: POKE 0,KK: GOLL I 
: KETBRH 

75 ggsub hi-, mm "Mil i,r-/.\> * 

,M,Y:Y=WYa8B>*lW8 
88 H=H?K3M-t nOO 58*3£5-T/ 
58tfl2+A/4-R/4B8+tl*3I-ll/lMI/ 
7-H/5-3*(fl>2)+&: IF m THEW 

s--; .:jv. emu 

85 DIN W(1B),M(3U(3),C<3>, 
evi3);B(l)-340:8i?)=?3P:e(3 
)=242:C(t)=575:H£)=?W;C(3 
:-7-7-P- ; .:.E::sr 

so rn^mi text : can -m: 

POKE 34,38: G0SUB £6: GOSliB 
■'■ m& m PRINT ; TOB 16 
: ?m "APPLE II SIORHYTHn (4K; 
IfiB 15; PfttHT 
95 GOSiib 35: T«B 5: PRTHT "CGPYRIGH 
7 1377 fiPPLi COMPUTER INC. 2 
: POKE Si-; VTRB 34 
IBB WM 60: INPUT 'BfiKE \N$: 
vThB EE: PfilHT •:; ¥M £4 
: PRINT ; E; : ,.: GSSUS 75 
: VTRB EE; TRB El; FRIHT "BIRTH 
OhTE :r:V;,; , ■ ; vTfiB 
E4:M=H: CRLL -363 
105 PRINT 5 F0REC7i5T GOSOB 75 
:NHil: IP THEN V 
: m E3; TOR 10: PRINT J F0RECfi 
31 mi -M . VTSB 
24: CRLL -300 



m -\: GS : POKE 34,23; POi Z= 
iS TO 28: C0LOR=3: HLIH B.31 
RT it: HEiiT X:. HLIH 1,3 SiT 
3; HLIri 1,3 ?7 37: VLlH E,4 
AT 2: ViaB £1 

115 FOR Y=l TO 31 STEP 3: PRIHT 
,';: IF Vild THEN PRINT 1 ° = 
: PkINT 1 ;: MESi U PRINT 
s F E W\ VTfiB B4 

IPO im 33: PRINT J! DO/E LIVED 5 
;H: FOS 1=1 TO 3: ,J?-U : - 
I=1H6*(I=2)*3*<I=33: IfLIH 
0,09 RT 33*1+1: VTflE c 

m POP M TO 31:P=(H NOD Ml) 
m m Tml): G05UB 50: PLOT 
,.:; GCSUO 65: HE XT a; HEKT 
I 

130 PRINT : IMPOT ANOTHER PLOT i^/H 
) ,t-: IF .i.!,---' -- TKEH 
90; \M 
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DRAGON MAZE PROGRAM 



PROGRAM DESCRIPTION 

DRAGON MAZE is a game that will test your skill and memory. A mazeis 
constructed on the video screen. You watch carefully as it is completed. 
After it is finished the maze is hidden as if the lights were turned out. 
The object of the game is to get out of the maze before the dragon eats 
you. A reddish-brown square indicates your position and a purple square 
represents the dragon's.* You move by hitting a letter on the keyboard; 
U for up, D for down, R for right, and L for left. As you advance so 
does the dragon. The scent of humans drives the dragon crazy; when he is 
enraged he breaks through walls to get at you. DRAGON MAZE is not a game 
for the weak at heart. Try it if you dare to attempt out-smarting the 
dragon . 

REQUIREMENTS 

8K or greater Apple II computer system. 
BASIC is the programming language. 



Color tints may vary depending upon video monitor or television adjustments. 
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PROGRAM LISTING: DRAGON MAZE 



1 m : CRLL -93£ 

• print 'uelcdke to the drhG0N ; 3 f, 
m\° 

3 PRIHI E Y0u mi tWTCH mil 1 jUi 
LD fl HBZE f ! 

4 PRIHT "BUT sHlH IT'S COMPLETE, I 
1 LL FFF"' 

5 PRZKT 'THF PICTURE, T-HEH VGU LL 
ONLY SEE THE sfiLLS TiS fOJ sUfif I 
RIG THEN." 

t PRINT fsCVE ; .iuu HIT : R ! FOR 
EIGHT/ 

7 FEINT ' L FOP LEFT, 'li' FGR -UP. 
ftW>' . 

PRIKT s; D : FOR \m> DO HOT HIT 

RETORHt " 
9 PRINT 

13 PRINT 3 IHL OBJECT. IS FOR YOU (TH 

E GREEN DGr ' 
11 PRINT 3 T0 GET TO THE DOGE OH THE 

RIGtIT SIDE" 
IE PRIHT "BEFORE THE DENGGH (THE RE 

DOTS ERTb H 

13 PRINT 

14 PRINT 'LuiteiEJM SGHETIHE5 

THE DRRGON' 

15 PRIHT "GETS RENL NND, RKD CLIMBS 

UyER ff WILL. " 
:•- PRIHT ; B0T HOST OF THE t \H. HE 
CftK'T GO WW 

17 PRIHT m m TO GO HRQOND, 1 

18 PRINT 

[9 PRINT U \ L . VGU CRN OFTEH TELL 
eHERE A Mr 



38 PRIKT 'IS, EVEN: BEFORE YOU CftH S 

EE IT, BY* 
21 PRINT MriE FACT THAT THE IRHGfJH 

ean i GET 5 

23 PRIHT "TKRGuGH IT!)" 
23 PRINT 
09 Dili d* i. 

99 PRINT r "V?F ; GG ! TO BEGIN 3 
INPUT 

138 gr : color-is 

183 Chll -mi PRIHT "DRHGQN - : .fZE 
TRE (Pi); PRIHT "GRRY J. EHRH 
HON' 

Hfl for to 39 STEP 3: VLIN 
0,33 AT i: HLIH 8 f 39 HT 3: HEXl 
I 

:d: COLORS 
138 i i^ 

m m tKK9),T(l69) 

1881 FOR I=t TO 189:TU)=8; HEsT 
I 

1013 FOR I-; TO 169:1KIj=1I: ml 
I 

1338 X= RHD •- RND U3M 

1835 IF C=t TREK 13GS 

1649 R=8:D=8s L=8sU=9itt=X-i-13*C¥-t 

BBS (rKK»:e=e-i 
1053 IF M3 THEN lB6B:R=iKKtl)> 



1833 IF THEN 1878: NKM3) 

:>8 

1878 if THEN :.:: : i::.^r-:.t 

1833 IF M THEii W9§:«=tKK-13)> 
8 



1898 MtD+Ltu 

1188 IF (Q<3 HHD m ,2; OR 

S=6 THEN 1178 
11 16 m m (4) 
1133 GOTO I138tl8*DR 
1138 IF HOT R TO liiarir. 

1135 YLIN 3v i,: 3*<X-1) 

1136 GOTO 1335 

1148 IF NOT L THEN .1:3: - ; ? ;-';Y 
1145 HLIN 3*X-2,3*!H NT >•*>:. 
1143 GOTO 1835 

1158 If NOT L THEN 1I16:IKHHK 

r l. 1: . 
1155 VEIN I'i-i,?:;-, TiT !•„ 
1153 GOTO 1835 

iib9 IF HOT THEN ul^ii.-S - 

. Hb5 KLIH 3*H,3*M FJ 3*t: GOTO 
1835 

U?8 X= RND •!?.-::.- RHD <!3m 

1188 IF IKX*13*(H))>B THEN 1176 

1198 --C-lr GOTO 1635 

1388 GOSOB 5886: PRINT n TNE ml 13 R 

ERDY" 
1365 GR : C0L0R=I5 
1316 3,39 AT 3; VLIh 0,33 FT 
■ 33: HLIN 6,39 ST 6; HLIH 8, 
39 HT 39 
1326 X=1:Y= RND . I J : I : C0L0R4: 
PLOT 3*X-2,3*Y-2 
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DRAGON MAZE cont. 



1335 KX=3*X-2;HrotY-Z 

im «v= khd am 

1348 C0L0R=8: VEIN 3*BY-£,3*UY-1 

fl! V: 
1356 ?,>;L;ir?; 

1566 K= PLEK IF -..lit THE* 

1516 POKE -lb3£8,e 

1515 m=k; mm 

1516 IF HND b¥=V THEN 8868 
15£8 IF K= HSC(T) THEH 3666 
1538 IF K= v ; THEH c55s 

1548 if rsc(T) theh m 

1553 IF K= flSCC'D") THEN 3583 
1569 G03U8 5866: GOTO 1566 
33^ DX=1:DY=8 

ci.'!- IF Hi'S+i3*£i-i» KGI> 16 THEH 

4000 

3636 ; .-i'v t :>"Y=j*K: FOE 1=1 TO 

3 

2038 i:.-->.'+[7.: = , 
m COL0R=8 

ma for »;-« TO l: : i? L=8 TO 1: 

PLOT HM f BY+L: fOi L,K: C0l0R= 
3: FOR K=B TO 1: FOP L=6 TO 
1; PLOT FX+K,FY+l: NEXT L,K: 
HX=Fs: KFV=FY 

£118 NLnT I 

3115 mmii^m 

3116 IF X=I3 HHB ,=u THEH t-SSe " 
3138 GOTO 1588 

£566 Wf=-i:DY=B 

£518 IF XJn::*. ■:■:)■ I . ■ ROD 10 THEH 
41BB 



3536 GOTO 3628 
3630 DX=B:DY=-1 

3618 IF tKX+13*iY-2))/I8 THEN 4383 

3830 GOTO Llvv 
3588 Mt=B:IlM 

3518 IF KM'^-l.; THEN 436* 

3538 GOTO £638 
4008 GQSUB 5888 
48 10 COLOR- 15 

4036 ¥LIN 3*CH) f 3*Y RT :C 
4830 0OTO 1588 
4138 G0308 5068 
4110 CDLUR=15 

4130 VLIN w,-V ftl Jt(H) 

4133 GOTO 1508 
4308 GGS0B 5800 
4310 COL0R=i5 

4338 HLIH 3*£UUtX RT IKi-i) 
4338 GOTO 1500 

m mm 5686 

4316 C0L0R=15 

4330 HL1N 3*(X-1),3*X AT 3*r 
4338 GOTO 1566 

5868 S=S-1; FOR 1=1 TO 2B:fl= PEEK 
£-lfc33&)t PEEK i -1A33SH PEEK 
(-16334)* PEEK (-16336): HEsT 
I: RETURn 

3868 PRINT a Y00 BIH!" 

6616 GOSUE 5006; GOiOB 5009; WM 
5686 

6830 PRINT a b£0Rt-=;S+3 
6630 END 



7866 IF X>SX THEH 7885; IF Y>3Y THEH 
7050 

7081 IF ;>3,: THEN 7183: IF Y<SY THEH 
7158 

7865 IF SJC=13 THEN 7056; IF KSXt 
13t£S¥-t)»9 THEH 7818: IF 
!KSX+13*(SY-1)) HOD 18 THEH 
7650 

7610 »X=1:DY=8 

7636 C0L9R=B 

7633 RX=3*SV-3:RY=3*SY-3 

7833 FOR 1=1 TO 3:RX=RKtDX:RMY+ 
OY 

7634 C0L0R=8 

7035 FOR K=B TO 1: FOR L=8 TO 1: 

PLOT «X*K,8¥tL; HEXT C0LDR= 
R&: FOR K=8 TG 1: FOR L=8 TO 
i: PLOT RM,SYtL; NEXT L.K: 

8x=kj[:8y=ry 

7630 IOT I 

7835 3K=bX+Ds:3Y=SV+DY 

7846 T<5X+13*(5Y-l»=T(SXtl3*(5Y- 

DH1 

im retlerk 

7858 IF SV=I3 THEH 7160: IF T(Ss+ 
.13H5Y-1))>9 THEN 7803; IF 
H(SX*l3tCSY-l»/18 THEN 7186 

7666 BX=8:BY=1: GOTO 7030 
7166 IF SX=1 THEH 7156: IF T- v» 
13*iSY-l))>3 THEH 7110: IF 
fl(SX+13*(5MH) HOD 18 THEN 
7156 
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DRAGON MAZE cont. 



me Dx=-kDv=e= goto ?m 

■'.i.r.H it b"-i i H h^ :''HH:;: ;> 

385 



3i bUbi.'fc' SHHH : . ^h'.'.N! * 1 Hh UKh 
bun bu i TUU : 

im END 



APPLE II FIRMWARE 



1. System Monitor Commands 

2. Control and Editing Characters 

3. Special Controls and Features 

4. Annotated Monitor and Dis-assembler Listing 

5. Binary Floating Point Package 

6. Sweet 16 Interpreter Listing 

7. 6502 Op Codes 
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System Monitor Commands 



Apple II contains a powerful machine level monitor for use by the advanced 
programmer. To enter the monitor either press RESET button on keyboard or 
CALL- 151 (Hex FF65) from Basic. Apple II will respond with an "*" (asterisk) 
prompt character on the TV display. This action will not kill current BASIC 
program which may be re-entered by a C c (control C). NOTE: "adrs" is a 
four digit hexidecimal number and "data" is a two digit hexidecimal number. 
Remember to press "return" button at the end of each line. 



Command Format Exampl e 

Examine Memory 

adrs *C0F2 



Description 



Examines (displays) single memory 
location of (adrs) 



adrsl .adrs2 



*1 024. 1 048 



Examines (displays) range of memory 
from (adrsl ) thru (adrs2) 



(return) 



*(return) 



Examines (displays) 
locations. 



next 8 memory 



adrs2 



.4096 



Examines (displays) memory from current 
location through location (adrs2) 



Change Memory 



adrs :data 
data data 



*A256:EF 20 43 



Deposits data into memory starting at 
location (adrs). 



:data data 
data 



*:F0 A2 12 



Deposits data into memory starting 
after (adrs) last used for deposits. 



Move Memory 



adrsl<adrs2. 
adrs3M 



*100<B010.B410M 



Copy the data now in the memory range 
from (adrs2) to (adrs3) into memory 
locations starting at (adrsl). 



Verify Memory 



adsrl<adrs2 
adrs3V 



*100<B010.B410V 



Verify that block of data in memory 
range from (adrs2) to (adrs3) exactly 
matches data block starting at memory 
location (adrsl )and displays 
differences if any. 
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Command Format Exampl e 



Description 



Cassette I/O 



adrsl .adrs2R 



*300.4FFR 



Reads cassette data into specified 
memory (adrs) range. Record length 
must be same as memory range or an 
error wil 1 occur. 



adrsl .adrs2W 



*800.9FFW 



Writes onto cassette data from speci 
fied memory (adrs) range. 



Displ ay 

I *I Set inverse video mode. (Black characters 

on white background) 

M *N Set normal video mode. (White characters 

on black background) 



Dis-assembl er 



adrsL 



*C800L 



Decodes 20 instructions starting at 
memory (adrs) into 6502 assembly 
nmenonic code. 



*L 



Decodes next 20 instructions starting 
at current memory address. 



Mini -assembl er 

(Turn-on) *F666G Turns-on mi ni -assembl er . Prompt 

character is now a "!" (exclamation 
point) . 



$(monitor: 
command) 



SC800L 



Executes any monitor command from mini- 
assembler then returns control to mini- 
assembler. Note that many monitor 
commands change current memory address 
reference so that it is good practice 
to retype desired address reference 
upon return to mini -assembl er. 



adrs : (6502 
MNEMONIC 
instruction) 



!C010:STA 23FF 



Assembles a mnemonic 6502 instruction 
into machine codes. If error, machine 
will refuse instruction, sound bell, 
and reprint line with up arrow under 
error. 
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Command Format 

(space) (6502 
mnemoni c 
i instruction) 

(TURN-OFF) 



Exampl e 
! STA 01 FF 

! (Reset Button) 



Descri pti on 

Assembles instruction into next 
available memory location. (Note 
space between "f" and instruction) 

Exits mi ni -assembl er and returns 
to system monitor. 



Monitor Program Execution and Debuging 
adrsG *300G 

adrsT *800T 

asrdS *C050S 

(Control E) *E C 
(Control Y) *Y C 



Runs machine level program starting 
at memory (adrs) . 

Traces a program starting at memory 
location (adrs) and continues trace 
until hitting a breakpoint. Break 
occurs on instruction 00 (BRK), and 
returns control to system monitor. 
Opens 6502 status registers (see note 1) 

Single steps through program beginning 
at memory location (adrs). Type a 
letter S for each additional step 
that you want displayed. Opens 6502 
status registers (see Note 1). 

Displays 6502 status registers and 
opens them for modification (see Note 1) 

Executes user specified machine 
language subroutine starting at 
memory location (3F8). 



Note 1 : 

6502 status registers are open if they are last line displayed on screen. 
To change them type ":" then "data" for each register. 

Example: A = 3C X = FF Y = 00 P = 32 S = F2 

*: FF Changes A register only 

*:FF 00 33 Changes A, X, and Y registers 

To change S register, you must first retype data for A, X, Y and P. 



Hexidecimal Arithmetic 



datal+data2 



*78+34 



Performs hexidecimal sum of datal 
plus data2. 



datal -data2 



*AE-34 



Performs hexidecimal difference of 
datal minus data2. 
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Command Format Exampl e 



Description 



Set Input/Output Ports 



(X) (Control P) 



*5PC 



Sets printer output to I/O slot 
number (X). (see Note 2 below) 
Sets keyboard input to I/O slot 
number (X). (see Note 2 below) 



(X) (Control K) 



*2KC 



Note 2: 



Only slots 1 through 7 are addressable in this mode. Address (Ex: 0P 

or 0K ) resets ports to internal video display and keyboard. These commands 

will not work unless Apple II interfaces are plugged into specificed I/O 
si ot. 



Multiple Commands 



*100L 400G AFFT 



Multiple monitor commands may be 
given on same line if separated by 
a "space". 



*LLLL 



Single letter commands may be 
repeated without spaces. 



71 



SPECIAL CONTROL AND EDITING CHARACTERS 



"Control" characters are indicated by a super-scripted "C" such as G c . They 
are obtained by holding down the CTRL key while typing the specified letter. 
Control characters are NOT displayed on the TV screen. B c and C c must be 
followed by a carriage return. Screen editing characters are indicated by a 
sub-scripted "E" such as D c . They are obtained by pressing and releasing the 
ESC key then typing specified letter. Edit characters send information only 
to display screen and does not send data to memory. For example, U c moves to 
cursor to right and copies text while A E moves cursor to right but does not 
copy text. 



CHARACTER 



DESCRIPTION OF ACTION 



RESET key 



Immediately interrupts any program execution and resets 
computer. Also sets all text mode with scrolling window 
at maximum. Control is transferred to System Monitor and 
Apple prompts with a "*" (asterisk) and a bell. Hitting 
RESET key does NOT destroy existing BASIC or machine 
language program. 



Control B 



If in System Monitor (as indicated by a "*"), a control 
B and a carriage return will transfer control to BASIC, 
scratching (killing) any existing BASIC program and set 
HIMEM: to maximum installed user memory and LOMEM: 
to 2048. 



Control C 



If in BASIC, halts program and displays line number 
where stop occurred*. Program may be continued with a 
CON command. If in System Monitor, (as indicated by "*") 
control 



C and a carriage 
killing current program. 



return will enter BASIC without 



Control G 
Control H 



Sounds bell (beeps speaker) 

Backspaces cursor and deletes any overwritten characters 
from computer but not from screen. Apply supplied 
keyboards have special key "4-." on right side of keyboard 
that provides this functions without using control button. 



Control J 
Control V 



Issues line feed only 

r 

Compliment to H . Forward spaces cursor and copies over 
written characters. Apple keyboards have "+" key on 
right side which also performs this function. 



Control X 



Immediately deletes current line. 

If BASIC program is expecting keyboard input, you will have 
to hit carriage return key after typing control C. 
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SPECIAL CONTROL AND EDITING CHARACTERS 
(continued) 



CHARACTER DESCRIPTION OF ACTION 

A|i Move cursor to right 

B|i Move cursor to left 

C|i Move cursor down 

D|i Move cursor up 

E|i Clear text from cursor to end of line 

F|i Clear text from cursor to end of page 

@£ Home cursor to top of page, clear text to end 

of page. 
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Special Controls and Features 



Hex BASIC Example Descri pti on 



Display Mode Controls 



CO50 


10 


POKE 


-16304,0 


Set color graphics mode 


C051 


20 


POKE 


-16303,0 


Set text mode 


C052 


30 


POKE 


-16302,0 


Clear mixed graphics 


C053 


40 


POKE 


-16301,0 


Set mixed graphics (4 lines text) 


C054 


50 


POKE 


-16300,0 


Clear display Page 2 (BASIC commands 










use Page 1 only) 


C055 


60 


POKE 


-16299,0 


Set display to Page 2 (alternate) 


C056 


70 


POKE 


-16298,0 


Clear HIRES graphics mode 


C057 


80 


POKE 


-16297,0 


Set HIRES graphics mode 



TEXT Mode Controls 



0020 

0021 
0022 
0023 
0024 



0025 

0032 

FC58 
FC42 



90 POKE 32, LI 

100 POKE 33, Wl 
110 POKE 34,11 
120 POKE 35, Bl 



130 CH=PEEK(36) 
140 POKE 36, CH 
150 TAB(CH+1) 



160 CV=PEEK(37) 

170 POKE 37, CV 

180 VTAB(CV+1) 

190 POKE 50,127 

200 POKE 50,255 

210 CALL -936 

220 CALL -958 



Set left side of scrolling window 
to location specified by LI in 
range of to 39. 

Set window width to amount specified 
by Wl . L1+WK40. Wl >0 

Set window top to line specified 
by Tl in range of to 23 

Set window bottom to line specified 
by Bl in the range of to 23. B1>T1 

Read/set cusor horizontal position 
in the range of to 39. If using 
TAB, you must add "1" to cusor position 
read value; Ex. 140 and 150 perform 
identical function. 

Similar to above. Read/set cusor 
vertical position in the range to 
23. 

Set inverse flag if 127 (Ex. 190) 
Set normal flag if 255(Ex. 200) 

(@|i) Home cusor, clear screen 

(F|r) Clear from cusor to end of page 
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Hex BASIC Example Description 

FC9C 230 CALL -868 (E £ ) Clear from cusor to end of line 

FC66 240 CALL -922 (J C ) Line feed 

FC70 250 CALL -912 Scroll up text one line 

Miscel 1 aneous 

C030 360 X=PEEK( -1 6336) Toggle speaker 

365 POKE -16336,0 

C000 370 X=PEEK( -16384 Read keyboard; if X>127 then key was 

pressed. 

C010 380 POKE -16368,0 Clear keyboard strobe - always after 

reading keyboard. 

C061 390 X=PEEK( 16287 ) Read PDL(0) push button switch. If 

X>127 then switch is "on". 

C062 400 X=PEEK( -1 6286) Read PDL(l) push button switch. 

C063 410 X=PEEK( -1 6285 Read PDL(2) push button switch. 

C058 420 POKE -16296,0 Clear Game I/O AN0 output 

C059 430 POKE -16295,0 Set Game I/O AN0 output 

C05A 440 POKE -16294,0 Clear Game I/O AN1 output 

C05B 450 POKE -16293,0 Set Game I/O AN1 output 

C05C 460 POKE -16292,0 Clear Game I/O AN2 output 

C05D 470 POKE -16291,0 Set Game I/O AN2 output 

C05E 480 POKE -16290,0 Clear Game I/O AN3 output 

C05F 490 POKE -16289,0 Set Game I/O AN3 output 
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*************************** 



APPLE II 
SYSTEM MONITOR 



COPYRIGHT 1977 BY 
APPLE COMPUTER, INC. 



ALL RIGHTS RESERVED 



S. WOZNIAK 
A . BAUM 



*************************** 

"APPLE II SYSTEM MONITOR" 





TITLE 




LOCO 


EPZ 


$00 


LOCI 


EPZ 


$01 


WNDLFT 


EPZ 


$20 


WNDWDTH 


EPZ 


$21 


WNDTOP 


EPZ 


$22 


WNDBTM 


EPZ 


$23 


CH 


EPZ 


$24 


CV 


EPZ 


$25 


GBASL 


EPZ 


$26 


GBASH 


EPZ 


$27 


BASL 


EPZ 


$28 


BASH 


EPZ 


$29 


BAS2L 


EPZ 


$2A 


BAS2H 


EPZ 


$2B 


H2 


EPZ 


$2C 


LMNEM 


EPZ 


$2C 


RTNL 


EPZ 


$2C 


V2 


EPZ 


$2D 


RMNEM 


EPZ 


$2D 


RTNH 


EPZ 


$2D 


MASK 


EPZ 


$2E 


CHKSUM 


EPZ 


$2E 


FORMAT 


EPZ 


$2E 


LASTIN 


EPZ 


$2F 


LENGTH 


EPZ 


$2F 


SIGN 


EPZ 


$2F 


COLOR 


EPZ 


$30 


MODE 


EPZ 


$31 


INVFLG 


EPZ 


$32 


PROMPT 


EPZ 


$33 


YSAV 


EPZ 


$34 


YSAV1 


EPZ 


$35 


CSWL 


EPZ 


$36 


CSWH 


EPZ 


$37 


KSWL 


EPZ 


$38 


KSWH 


EPZ 


$39 


PCL 


EPZ 


$3A 


PCH 


EPZ 


$3B 


XQT 


EPZ 


$3C 


AIL 


EPZ 


$3C 


A1H 


EPZ 


$3D 


A2L 


EPZ 


$3E 


A2H 


EPZ 


$3F 


A3L 


EPZ 


$40 


A3H 


EPZ 


$41 


A4L 


EPZ 


$42 


A4H 


EPZ 


$43 


A5L 


EPZ 


$44 


A5H 


EPZ 


$45 
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ACC 


EQU 


$45 














XREG 


EQU 


$46 














YREG 


EQU 


$47 














STATUS 


EQU 


$48 














SPNT 


EQU 


$49 














RNDL 


EQU 


$4E 














RNDH 


EQU 


$4F 














ACL 


EQU 


$50 














ACH 


EQU 


$51 














XTNDL 


EQU 


$52 














XTNDH 


EQU 


$53 














AUXL 


EQU 


$54 














AUXH 


EQU 


$55 














PICK 


EQU 


$95 














IN 


EQU 


$0200 














USRADR 


EQU 


$03F8 














NMI 


EQU 


$03FB 














IRQLOC 


EQU 


$03FE 














10 ADR 


EQU 


$C0O0 














KBD 


EQU 


$C000 














KBDSTRB 


EQU 


$C010 














TAPEOUT 


EQU 


$C020 














SPKR 


EQU 


$C030 














TXTCLR 


EQU 


$C050 














TXTSET 


EQU 


$C051 














MIXCLR 


EQU 


$C052 














MIXSET 


EQU 


$C053 














LOWSCR 


EQU 


$C054 














HISCR 


EQU 


$C055 














LORES 


EQU 


$C056 














HIRES 


EQU 


$C057 














TAPE IN 


EQU 


$C060 














PADDLO 


EQU 


$C064 














PTRIG 


EQU 


$C070 














BASIC 


EQU 


$E000 














BASIC2 


EQU 
ORG 


$E003 
$F800 




ROM START ADDRESS 


F800 


4A 






PLOT 


LSR 






Y-COORD/2 


F801 


08 








PHP 






SAVE LSB IN CARRY 


F802 


20 


47 


F8 




JSR 


GBASCALC 


CALC BASE ADR IN GBASL, H 


F805 


28 








PLP 






RESTORE LSB FROM CARRY 


F806 


A9 


OF 






LDA 


#$0F 




MASK $0F IF EVEN 


F808 


90 


02 






BCC 


RTMASK 






F80A 


69 


EO 






ADC 


#$E0 




MASK $F0 IF ODD 


F80C 


85 


2E 




RTMASK 


STA 


MASK 






F80E 


Bl 


26 




PLOT1 


LDA 


( GBASL ) , 


Y 


DATA 


F810 


45 


30 






EOR 


COLOR 




EOR COLOR 


F812 


25 


2E 






AND 


MASK 




AND MASK 


F814 


51 


26 






EOR 


(GBASL) , 


Y 


XOR DATA 


F816 


91 


26 






STA 


(GBASL) , 


Y 


TO DATA 


F818 


60 








RTS 








F819 


20 


00 


F8 


HLINE 


JSR 


PLOT 




PLOT SQUARE 


F81C 


C4 


2C 




HLINE1 


CPY 


H2 




DONE? 


F81E 


BO 


11 






BCS 


RTS1 




YES , RETURN 


F820 


C8 








INY 






NO, INCR INDEX (X-COORD) 


F821 


20 


OE 


F8 




JSR 


PLOT1 




PLOT NEXT SQUARE 


F824 


90 


F6 






BCC 


HLINE1 




ALWAYS TAKEN 


F826 


69 


01 




VLINEZ 


ADC 


#$01 




NEXT Y- COORD 


F828 


48 






VLINE 


PHA 






SAVE ON STACK 


F829 


20 


00 


F8 




JSR 


PLOT 




PLOT SQUARE 


F82C 


68 








PLA 








F82D 


C5 


2D 






CMP 


V2 




DONE? 


F82F 


90 


F5 






BCC 


VLINEZ 




NO, LOOP 


F831 


60 






RTS1 


RTS 








F832 


AO 


2F 




CLRSCR 


LDY 


#$2F 




MAX Y, FULL SCRN CLR 


F834 


DO 


02 






BNE 


CLRSC2 




ALWAYS TAKEN 


F836 


AO 


27 




CLRTOP 


LDY 


#$27 




MAX Y, TOP SCREEN CLR 


F838 


84 


2D 




CLRSC2 


STY 


V2 




STORE AS BOTTOM COORD 












FOR 


VLINE CALLS 


F83A 


AO 


27 






LDY 


#$27 




RIGHTMOST X-COORD (COLUMN 


F83C 


A9 


00 




CLRSC3 


LDA 


#$00 




TOP COORD FOR VLINE CALLS 


F83E 


85 


30 






STA 


COLOR 




CLEAR COLOR (BLACK) 


F840 


20 


28 


F8 




JSR 


VLINE 




DRAW VLINE 


F843 


88 








DEY 






NEXT LEFTMOST X-COORD 


F844 


10 


F6 






BPL 


CLRSC3 




LOOP UNTIL DONE 


F846 


60 








RTS 








F847 


48 






GBASCALC 


PHA 






FOR INPUT 0DEFGH 


F848 


4A 








LSR 








F849 


29 


03 






AND 


#$03 






F84B 


09 


04 






ORA 


#$04 




GENERATE GBASH=000001FG 


F84D 


85 


27 






STA 


GBASH 






F84F 


68 








PLA 






AND GBASL-HDEDE000 


F850 


29 


18 






AND 


#$18 






F852 


90 


02 






BCC 


GBCALC 






F854 


69 


7F 






ADC 


#$7F 






F856 


85 


26 




GBCALC 


STA 


GBASL 







77 



F858 


OA 








ASL 


A 




F859 


OA 








ASL 


A 




F85A 


05 


26 






ORA 


GBASL 




F85C 


85 


26 






STA 


GBASL 




F85E 


60 








RTS 






F85F 


A5 


30 




NXTCOL 


LDA 


COLOR 


INCREMENT COLOR BY 3 


F861 


18 








CLC 






F862 


69 


03 






ADC 


#$03 




F864 


29 


OF 




SETCOL 


AND 


#$0F 


SETS COLOR=17*A MOD 16 


F866 


85 


30 






STA 


COLOR 




F868 


OA 








ASL 


A 


BOTH HALF BYTES OF COLOR EQUAL 


F869 


OA 








ASL 


A 




F86A 


OA 








ASL 


A 




F86B 


OA 








ASL 


A 




F86C 


05 


30 






ORA 


COLOR 




F86E 


85 


30 






STA 


COLOR 




F870 


60 








RTS 






F871 


4A 






SCRN 


LSR 


A 


READ SCREEN Y- COORD/ 2 


F872 


08 








PHP 




SAVE LSB (CARRY) 


F873 


20 


47 


F8 




JSR 


GBASCALC 


CALC BASE ADDRESS 


F876 


Bl 


26 






LDA 


(GBASL) , 


Y GET BYTE 


F878 


28 








PLP 




RESTORE LSB FROM CARRY 


F879 


90 


04 




SCRN2 


BCC 


RTMSKZ 


IF EVEN, USE LO H 


F87B 


4A 








LSR 


A 




F87C 


4A 








LSR 


A 




F87D 


4A 








LSR 


A 


SHIFT HIGH HALF BYTE DOWN 


F87E 


4A 








LSR 


A 




F87F 


29 


OF 




RTMSKZ 


AND 


#$0F 


MASK 4-BITS 


F881 


60 








RTS 






F882 


A6 


3A 




INSDS1 


LDX 


PCL 


PRINT PCL,H 


F884 


A4 


3B 






LDY 


PCH 




F886 


20 


96 


FD 




JSR 


PRYX2 




F889 


20 


48 


F9 




JSR 


PRBLNK 


FOLLOWED BY A BLANK 


F88C 


Al 


3A 






LDA 


(PCL,X) 


GET OP CODE 


F88E 


A8 






INSDS2 


TAY 






F88F 


4A 








LSR 


A 


EVEN/ODD TEST 


F890 


90 


09 






BCC 


I EVEN 




F892 


6A 








ROR 




BIT 1 TEST 


F893 


BO 


10 






BCS 


ERR 


XXXXXX11 INVALID OP 


F895 


C9 


A2 






CMP 


#$A2 




F897 


FO 


OC 






BEQ 


ERR 


OPCODE $8 9 INVALID 


F899 


29 


87 






AND 


#$87 


MASK BITS 


F89B 


4A 






I EVEN 


LSR 


A 


LSB INTO CARRY FOR L/R TEST 


F89C 


AA 








TAX 






F89D 


BD 


62 


F9 




LDA 


FMT1 , X 


GET FORMAT INDEX BYTE 


F8A0 


20 


79 


F8 




JSR 


SCRN2 


R/L H-BYTE ON CARRY 


F8A3 


DO 


04 






BNE 


GETFMT 




F8A5 


AO 


80 




ERR 


LDY 


#$80 


SUBSTITUTE $80 FOR INVALID OPS 


F8A7 


A9 


00 






LDA 


#$00 


SET PRINT FORMAT INDEX TO 


F8A9 


AA 






GETFMT 


TAX 






F8AA 


BD 


A6 


F9 




LDA 


FMT2 , X 


INDEX INTO PRINT FORMAT TABLE 


F8AD 


85 


2E 






STA 


FORMAT 


SAVE FOR ADR FIELD FORMATTING 


F8AF 


29 


03 






AND 


#$03 
(P=l BYTE 


MASK FOR 2-BIT LENGTH 
, 1=2 BYTE, 2=3 BYTE) 


F8B1 


85 


2F 






STA 


LENGTH 




F8B3 


98 








TYA 




OPCODE 


F8B4 


29 


8F 






AND 


#$8F 


MASK FOR 1XXX1010 TEST 


F8B6 


AA 








TAX 




SAVE IT 


F8B7 


98 








TYA 




OPCODE TO A AGAIN 


F8B8 


AO 


03 






LDY 


#$03 




F8BA 


EO 


8A 






CPX 


#$8A 




F8BC 


FO 


OB 






BEQ 


MNNDX3 




F8BE 


4A 






MNNDX1 


LSR 


A 




F8BF 


90 


08 






BCC 


MNNDX3 


FORM INDEX INTO MNEMONIC TABLE 


F8C1 


4A 








LSR 


A 




F8C2 


4A 






MNNDX2 


LSR 


A 


1) lXXX1010-&gt00101XXX 


F8C3 


09 


20 






ORA 


#$20 


2) XXXYYY01-&gt00111XXX 


F8C5 


88 








DEY 




3) XXXYYY10-&gt00110XXX 


F8C6 


DO 


FA 






BNE 


MNNDX2 


4) XXXYY10 0-&gt0 0100XXX 


F8C8 


C8 








INY 




5) XXXXX0 0O-&gt0O0XXXXX 


F8C9 


88 






MNNDX3 


DEY 






F8CA 


DO 


F2 






BNE 


MNNDX1 




F8CC 


60 








RTS 






F8CD 


FF 


FF 


FF 




DFB 


$FF, $FF, 


$FF 


F8D0 


20 


82 


F8 


INSTDSP 


JSR 


INSDS1 


GEN FMT, LEN BYTES 


F8D3 


48 








PHA 




SAVE MNEMONIC TABLE INDEX 


F8D4 


Bl 


3A 




PRNTOP 


LDA 


(PCL) ,Y 




F8D6 


20 


DA 


FD 




JSR 


PRBYTE 




F8D9 


A2 


01 






LDX 


#$01 


PRINT 2 BLANKS 


F8DB 


20 


4A 


F9 


PRNTBL 


JSR 


PRBL2 




F8DE 


C4 


2F 






CPY 


LENGTH 


PRINT INST (1-3 BYTES) 


F8E0 


C8 








INY 




IN A 12 CHR FIELD 


F8E1 


90 


Fl 






BCC 


PRNTOP 




F8E3 


A2 


03 






LDX 


#$03 


CHAR COUNT FOR MNEMONIC PRINT 


F8E5 


CO 


04 






CPY 


#$04 





78 



F8E7 


90 


F2 






BCC 




PRNTBL 






F8E9 


68 








PLA 








RECOVER MNEMONIC INDEX 


F8EA 


A8 








TAY 










F8EB 


B9 


CO 


F9 




LDA 




MNEML , Y 






F8EE 


85 


2C 






STA 




LMNEM 




FETCH 3 -CHAR MNEMONIC 


F8F0 


B9 


00 


FA 




LDA 




MNEMR , Y 




(PACKED IN 2 -BYTES) 


F8F3 


85 


2D 






STA 




RMNEM 






F8F5 


A9 


00 




PRMN1 


LDA 




#$00 






F8F7 


AO 


05 






LDY 




#$05 






F8F9 


06 


2D 




PRMN2 


ASL 




RMNEM 




SHIFT 5 BITS OF 


F8FB 


26 


2C 






ROL 




LMNEM 




CHARACTER INTO A 


F8FD 


2A 








ROL 








(CLEARS CARRY) 


F8FE 


88 








DEY 










F8FF 


DO 


F8 






BNE 




PRMN2 






F901 


69 


BF 






ADC 




#$BF 




ADD "?" OFFSET 


F903 


20 


ED 


FD 




JSR 




COUT 




OUTPUT A CHAR OF MNEM 


F906 


CA 








DEX 










F907 


DO 


EC 






BNE 




PRMN1 






F909 


20 


48 


F9 




JSR 




PRBLNK 




OUTPUT 3 BLANKS 


F90C 


A4 


2F 






LDY 




LENGTH 






F90E 


A2 


06 






LDX 




#$06 




CNT FOR 6 FORMAT BITS 


F910 


EO 


03 




PRADR1 


CPX 




#$03 






F912 


FO 


1C 






BEQ 




PRADR5 




IF X=3 THEN ADDR. 


F914 


06 


2E 




PRADR2 


ASL 




FORMAT 






F916 


90 


OE 






BCC 




PRADR3 






F918 


BD 


B3 


F9 




LDA 




CHAR1-1 , 


X 




F91B 


20 


ED 


FD 




JSR 




COUT 






F91E 


BD 


B9 


F9 




LDA 




CHAR2-1 , 


X 




F921 


FO 


03 






BEQ 




PRADR3 






F923 


20 


ED 


FD 




JSR 




COUT 






F926 


CA 






PRADR3 


DEX 










F927 


DO 


E7 






BNE 




PRADR1 






F929 


60 








RTS 










F92A 


88 






PRADR4 


DEY 










F92B 


30 


E7 






BMI 




PRADR2 






F92D 


20 


DA 


FD 




JSR 




PRBYTE 






F930 


A5 


2E 




PRADR5 


LDA 




FORMAT 






F932 


C9 


E8 






CMP 




#$E8 




HANDLE REL ADR MODE 


F934 


Bl 


3A 






LDA 




(PCL) ,Y 




SPECIAL (PRINT TARGET, 


F936 


90 


F2 






BCC 




PRADR4 




NOT OFFSET) 


F938 


20 


56 


F9 


RELADR 


JSR 




PCADJ3 






F93B 


AA 








TAX 








PCL,PCH+OFFSET+l TO A,Y 


F93C 


E8 








I NX 










F93D 


DO 


01 






BNE 




PRNTYX 




+1 TO Y,X 


F93F 


C8 








INY 










F940 


98 






PRNTYX 


TYA 










F941 


20 


DA 


FD 


PRNTAX 


JSR 




PRBYTE 




OUTPUT TARGET ADR 


F944 


8A 






PRNTX 


TXA 








OF BRANCH AND RETURN 


F945 


4C 


DA 


FD 




JMP 




PRBYTE 






F948 


A2 


03 




PRBLNK 


LDX 




#$03 




BLANK COUNT 


F94A 


A9 


AO 




PRBL2 


LDA 




#$A0 




LOAD A SPACE 


F94C 


20 


ED 


FD 


PRBL3 


JSR 




COUT 




OUTPUT A BLANK 


F94F 


CA 








DEX 










F950 


DO 


F8 






BNE 




PRBL2 




LOOP UNTIL COUNT=0 


F952 


60 








RTS 










F953 


38 






PCADJ 


SEC 








0=1-BYTE, 1=2-BYTE 


F954 


A5 


2F 




PCADJ2 


LDA 




LENGTH 




2=3 -BYTE 


F956 


A4 


3B 




PCADJ3 


LDY 




PCH 






F958 


AA 








TAX 








TEST DISPLACEMENT SIGN 


F959 


10 


01 






BPL 




PCADJ4 




(FOR REL BRANCH) 


F95B 


88 








DEY 








EXTEND NEG BY DEC PCH 


F95C 


65 


3A 




PCADJ4 


ADC 




PCL 






F95E 


90 


01 






BCC 




RTS 2 




PCL+LENGTH ( OR DISPD+l TO 


F960 


C8 








INY 








CARRY INTO Y (PCH) 


F961 


60 






RTS2 


RTS 


















* 


FMT1 


BYTES : 




XXXXXXY0 INSTRS 










* 


IF 


Y 


= 




THEN LEFT HALF 










* 


IF 


Y 


= 1 




THEN RIGHT HALF 










* 










(X= INDEX) 


F962 


04 


20 


54 














F965 


30 


OD 




FMT1 


DFB 




$04, $20, 


$54,$30,$0D 


F967 


80 


04 


90 














F96A 


03 


22 






DFB 




$80, $04, 


$90 


, $03 , $22 


F96C 


54 


33 


OD 














F96F 


80 


04 






DFB 




$54, $33, 


$0E 


, $80 , $04 


F971 


90 


04 


20 














F974 


54 


33 






DFB 




$90, $04, 


$20 


,$54, $33 


F976 


OD 


80 


04 














F979 


90 


04 






DFB 




$0D, $80 , 


$04 


, $90 , $04 


F97B 


20 


54 


3B 














F97E 


OD 


80 






DFB 




$20, $54, 


$3E 


, $0D, $80 


F980 


04 


90 


00 














F983 


22 


44 






DFB 




$04, $90, 


$00 


, $22 , $44 


F985 


33 


OD 


C8 














F988 


44 


00 






DFB 




$33 , $0D, 


$C8 


,$44, $00 



79 



F98A: 
F98D: 
F98F: 
F992 : 
F994 : 
F997 : 
F999 : 
F99C: 
F99E : 
F9A1 : 
F9A2 : 
F9A5 : 
F9A6 : 
F9A7 : 
F9A8 : 
F9A9 : 
F9AA: 
F9AB : 
F9AC : 
F9AD : 
F9AE : 
F9AF : 
F9B0 : 
F9B1 : 
F9B2 : 
F9B3 : 
F9B4 : 
F9B7 : 

F9BA: 
F9BD: 



F9C0 : 
F9C3 : 
F9C6 : 
F9C9 : 
F9CC : 
F9CF : 
F9D2 : 
F9D5 : 
F9D8 : 
F9DB : 
F9DE : 
F9E0 : 
F9E3: 
F9E6 : 
F9E8 : 
F9EB : 
F9EE : 
F9F0 : 
F9F3 : 
F9F6 : 
F9F8 : 
F9FB : 
F9FE : 
FAOO : 
FA0 3 : 
FA06: 
FA09 : 
FAOC: 
FAOF : 
FA12 : 
FA15 : 
FA18 : 
FA1B : 
FA1E : 
FA20 : 
FA23 : 
FA26 : 
FA28 : 
FA2B : 
FA2E : 
FA3 : 
FA3 3 : 
FA36: 
FA38: 
FA3B : 
FA3E : 



11 22 
33 OD 
C8 44 
01 22 
44 33 
80 04 
90 01 
44 33 
OD 80 
90 

26 31 

9A 

00 

21 

81 

82 

00 

00 

59 

4D 

91 

92 

86 

4A 

85 

9D 

AC A9 
A3 A8 

D9 00 
A4 A4 



44 
A9 
OD 
22 
04 
87 



AC 
A4 



D8 
00 



1C 8A 

23 5D 
IB Al 
8A ID 
9D 8B 
Al 00 
19 AE 
A8 19 

24 53 

23 24 
19 Al 
1A 
5B A5 

24 24 
AE AE 
AD 29 
7C 00 
15 9C 
9C A5 
29 53 
84 13 
11 A5 
23 AO 
D8 62 
48 26 
94 88 
44 C8 
68 44 
94 00 
08 84 
B4 28 
74 F4 
4A 72 
A4 8A 
00 AA 
A2 74 
74 72 
44 68 
32 B2 
22 00 
1A 1A 
26 72 
88 C8 
C4 CA 
48 44 
A2 C8 



1C 
8B 
9D 
23 
ID 
29 
69 
23 
IB 
53 

5B 
69 

A8 
00 

6D 
69 

34 
69 

5A 
62 
54 
54 
E8 
B4 
74 
6E 
CC 
F2 

A2 
74 

B2 
00 

26 
72 

26 
44 



DFB 

DFB 

DFB 

DFB 

DFB 

DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 

ASC 



$11 , $22 , $44 , $33 , $0D 
$C8 , $44 , $A9 , $01 , $22 
$44,$33,$0D,$80,$04 
$90, $01, $22, $44, $33 
$0D,$80,$04,$90 

$26 , $31 , $87 , $9A $ZZXXXY01 INSTR'S 
$00 
$21 
$81 
$82 
$00 
$00 
$59 
$4D 
$91 
$92 
$86 
$4A 
$85 
$9D 

",),#($" 



ERR 
I MM 

Z-PAGE 
ABS 

IMPLIED 

ACCUMULATOR 

(ZPAG,X) 

( ZPAG) , Y 

ZPAG.X 

ABS ,X 

ABS , Y 

(ABS) 

ZPAG,Y 

RELATIVE 



CHAR 2 DFB $D9 , $00 , $D8 , $A4 , $A4 , $00 

*CHAR2: 11 Y" , , "X$$ 11 , 

* MNEML IS OF FORM: 

* (A) XXXXX000 

* (B) XXXYY100 

* (C) 1XXX1010 

* (D) XXXYYY10 

* (E) XXXYYY01 

* ( X- INDEX ) 

MNEML DFB $1C , $8A, $1C , $23 , $5D , $ 

DFB $1B, $A1 , $9D, $8A, $1D, $23 

DFB $9D, $8B, $1D, $A1 , $00 , $29 

DFB $19 , $AE, $69 , $A8 , $19 , $23 

DFB $24 , $53 , $1B, $23 , $24 , $53 



DFB $19,$A1 



(A) FORMAT ABOVE 



DFB $00 , $1A, $5B, $5B, $A5 , $69 
DFB $24, $24 (B) FORMAT 

DFB $AE, $AE, $A8 , $AD , $29 , $00 



DFB 



$7C, $00 



( C ) FORMAT 



DFB $15,$9C,$6D,$9C,$A5,$69 
DFB $29, $53 (D) FORMAT 



DFB 
DFB 



$84, $13, $34, $11, $A5 , $69 
$23,$A0 (E) FORMAT 



DFB $D8 , $62 , $5A, $48 , $26 , $62 

DFB $94 , $88 , $54 , $44 , $C8 , $54 

DFB $68 , $44 , $E8 , $94 , $00 , $B4 

DFB $08 , $84 , $74 , $B4 , $28 , $6E 



DFB 
DFB 



$74 , $F4 , $CC, $4A, $72 , $F2 
$A4,$8A (A) FORMAT 



DFB $00 , $AA, $A2 , $A2 , $74 , $74 

DFB $74, $72 (B) FORMAT 

DFB $44 , $68 , $B2 , $32 , $B2 , $00 

DFB $22, $00 (C) FORMAT 

DFB $1A, $1A, $26 , $26 , $72 , $72 



DFB $88,$C8 



( D ) FORMAT 



DFB $C4 , $CA, $26 , $48 , $44 , $44 
DFB $A2,$C8 (E) FORMAT 



80 



FA4 : 


FF 


FF 


FF 




DFB 


$FF , $FF , $FF 


FA43 : 


20 


DO 


F8 


STEP 


JSR 


INSTDSP 


DISASSEMBLE ONE INST 


FA46 : 


68 








PLA 




AT ( PCL , H ) 


FA47 : 


85 


2C 






STA 


RTNL 


ADJUST TO USER 


FA49 : 


68 








PLA 




STACK. SAVE 


FA4A: 


85 


2D 






STA 


RTNH 


RTN ADR. 


FA4C : 


A2 


08 






LDX 


#$08 




FA4E : 


BD 


10 


FB 


XQINIT 


LDA 


INITBL-1 ,X 


INIT XEQ AREA 


FA51 : 


95 


3C 






STA 


XQT,X 




FA53 : 


CA 








DEX 






FA54 : 


DO 


F8 






BNE 


XQINIT 




FA56 : 


Al 


3A 






LDA 


(PCL,X) 


USER OPCODE BYTE 


FA58 : 


FO 


42 






BEQ 


XBRK 


SPECIAL IF BREAK 


FA5A : 


A4 


2F 






LDY 


LENGTH 


LEN FROM DISASSEMBLY 


FA5C: 


C9 


20 






CMP 


#$20 




FA5E : 


FO 


59 






BEQ 


XJSR 


HANDLE JSR , RTS , JMP , 


FA6 : 


C9 


60 






CMP 


#$60 


JMP ( ) , RTI SPECIAL 


FA6 2 : 


FO 


45 






BEQ 


XRTS 




FA6 4 : 


C9 


4C 






CMP 


#$4C 




FA66 : 


FO 


5C 






BEQ 


XJMP 




FA6 8 : 


C9 


6C 






CMP 


#$6C 




FA6A: 


FO 


59 






BEQ 


XJMPAT 




FA6C : 


C9 


40 






CMP 


#$40 




FA6E : 


FO 


35 






BEQ 


XRTI 




FA70 : 


29 


IF 






AND 


#$1F 




FA72 : 


49 


14 






EOR 


#$14 




FA74 : 


C9 


04 






CMP 


#$04 


COPY USER INST TO XEQ AREA 


FA76 : 


FO 


02 






BEQ 


XQ2 


WITH TRAILING NOPS 


FA78 : 


Bl 


3A 




XQ1 


LDA 


(PCL) ,Y 


CHANGE REL BRANCH 


FA7A: 


99 


3C 


00 


XQ2 


STA 


XQT , Y 


DISP TO 4 FOR 


FA7D : 


88 








DEY 




JMP TO BRANCH OR 


FA7E : 


10 


F8 






BPL 


XQ1 


NBRANCH FROM XEQ. 


FA8 : 


20 


3F 


FF 




JSR 


RESTORE 


RESTORE USER REG CONTENTS . 


FA83 : 


4C 


3C 


00 




JMP 


XQT 


XEQ USER OP FROM RAM 


FA8 6 : 


85 


45 




IRQ 


STA 


ACC 


(RETURN TO NBRANCH) 


FA8 8 : 


68 








PLA 






FA8 9 : 


48 








PHA 




**IRQ HANDLER 


FA8A: 


OA 








ASL 


A 




FA8B : 


OA 








ASL 


A 




FA8C: 


OA 








ASL 


A 




FA8D : 


30 


03 






BMI 


BREAK 


TEST FOR BREAK 


FA8F : 


6C 


FE 


03 




JMP 


( IRQLOC ) 


USER ROUTINE VECTOR IN RAM 


FA92 : 


28 






BREAK 


PLP 






FA93 : 


20 


4C 


FF 




JSR 


SAV1 


SAVE REG ' S ON BREAK 


FA96 : 


68 








PLA 




INCLUDING PC 


FA97 : 


85 


3A 






STA 


PCL 




FA99 : 


68 








PLA 






FA9A: 


85 


3B 






STA 


PCH 




FA9C: 


20 


82 


F8 


XBRK 


JSR 


INSDS1 


PRINT USER PC . 


FA9F: 


20 


DA 


FA 




JSR 


RGDSP1 


AND REG ' S 


FAA2 : 


4C 


65 


FF 




JMP 


MON 


GO TO MONITOR 


FAA5 : 


18 






XRTI 


CLC 






FAA6 : 


68 








PLA 




SIMULATE RTI BY EXPECTING 


FAA7 : 


85 


48 






STA 


STATUS 


STATUS FROM STACK, THEN RTS 


FAA9 : 


68 






XRTS 


PLA 




RTS SIMULATION 


FAAA: 


85 


3A 






STA 


PCL 


EXTRACT PC FROM STACK 


FAAC: 


68 








PLA 




AND UPDATE PC BY 1 ( LEN-0 ) 


FAAD: 


85 


3B 




PCINC2 


STA 


PCH 




FAAF : 


A5 


2F 




PCINC3 


LDA 


LENGTH 


UPDATE PC BY LEN 


FAB1 : 


20 


56 


F9 




JSR 


PCADJ3 




FAB 4 : 


84 


3B 






STY 


PCH 




FAB 6 : 


18 








CLC 






FAB 7 : 


90 


14 






BCC 


NEWPCL 




FAB 9 : 


18 






XJSR 


CLC 






FABA: 


20 


54 


F9 




JSR 


PCADJ2 


UPDATE PC AND PUSH 


FABD: 


AA 








TAX 




ONTO STACH FOR 


FABE : 


98 








TYA 




JSR SIMULATE 


FABF : 


48 








PHA 






FACO : 


8A 








TXA 






FAC1 : 


48 








PHA 






FAC2 : 


AO 


02 






LDY 


#$02 




FAC4 : 


18 






XJMP 


CLC 






FAC5 : 


Bl 


3A 




XJMPAT 


LDA 


(PCL) ,Y 




FAC7 : 


AA 








TAX 




LOAD PC FOR JMP, 


FAC8 : 


88 








DEY 




(JMP) SIMULATE. 


FAC9 : 


Bl 


3A 






LDA 


( PCL ) , Y 




FACB : 


86 


3B 






STX 


PCH 




FACD : 


85 


3A 




NEWPCL 


STA 


PCL 




FACF: 


BO 


F3 






BCS 


XJMP 




FAD1 : 


A5 


2D 




RTNJMP 


LDA 


RTNH 




FAD 3 : 


48 








PHA 






FAD 4 : 


A5 


2C 






LDA 


RTNL 




FAD 6 : 


48 








PHA 






FAD 7 : 


20 


8E 


FD 


REGDSP 


JSR 


CROUT 


DISPLAY USER REG 


FADA: 


A9 


45 




RGDSP1 


LDA 


#ACC 


CONTENTS WITH 


FADC : 


85 


40 






STA 


A3L 


LABELS 



81 



FADE : 


A9 


00 






LDA 


#ACC/256 




FAEO : 


85 


41 






STA 


A3H 




FAE2 : 


A2 


FB 






LDX 


#$FB 




FAE4 : 


A9 


AO 




RDSP1 


LDA 


#$A0 




FAE6 : 


20 


ED 


FD 




JSR 


COUT 




FAE9 : 


BD 


IE 


FA 




LDA 


RTBL- $FB , X 




FAEC : 


20 


ED 


FD 




JSR 


COUT 




FAEF : 


A9 


BD 






LDA 


#$BD 




FAF1 : 


20 


ED 


FD 




JSR 


COUT 




FAF4 : 


B5 


4A 






LDA 


ACC+5 ,X 




FAF6 : 


20 


DA 


FD 




JSR 


PRBYTE 




FAF9 : 


E8 








I NX 






FAFA: 


30 


E8 






BMI 


RDSP1 




FAFC : 


60 








RTS 






FAFD : 


18 






BRANCH 


CLC 




BRANCH TAKEN, 


FAFE : 


AO 


01 






LDY 


#$01 


ADD LEN+2 TO PC 


FBOO : 


Bl 


3A 






LDA 


(PCL) ,Y 




FB02 : 


20 


56 


F9 




JSR 


PCADJ3 




FB05 : 


85 


3A 






STA 


PCL 




FB07 : 


98 








TYA 






FB08 : 


38 








SEC 






FB09 : 


BO 


A2 






BCS 


PCINC2 




FBOB : 


20 


4A 


FF 


NBRNCH 


JSR 


SAVE 


NORMAL RETURN AFTER 


FBOE : 


38 








SEC 




XEQ USER OF 


FBOF : 


BO 


9E 






BCS 


PCINC3 


GO UPDATE PC 


FB11 : 


EA 






INITBL 


NOP 






FB12 : 


EA 








NOP 




DUMMY FILL FOR 


FB13 : 


4C 


OB 


FB 




JMP 


NBRNCH 


XEQ AREA 


FB16 : 


4C 


FD 


FA 




JMP 


BRANCH 




FB19 : 


CI 






RTBL 


DFB 


$C1 




FBI A : 


D8 








DFB 


$D8 




FB1B : 


D9 








DFB 


$D9 




FB1C : 


DO 








DFB 


$D0 




FB1D : 


D3 








DFB 


$D3 




FB1E : 


AD 


70 


CO 


PREAD 


LDA 


PTRIG 


TRIGGER PADDLES 


FB21 : 


AO 


00 






LDY 


#$00 


INIT COUNT 


FB2 3 : 


EA 








NOP 




COMPENSATE FOR 1ST COUNT 


FB24 : 


EA 








NOP 






FB25 : 


BD 


64 


CO 


PREAD2 


LDA 


PADDLO ,X 


COUNT Y-REG EVERY 


FB28 : 


10 


04 






BPL 


RTS2D 


12 USEC 


FB2A : 


C8 








INY 






FB2B : 


DO 


F8 






BNE 


PREAD 2 


EXIT AT 255 MAX 


FB2D : 


88 








DEY 






FB2E : 


60 






RTS2D 


RTS 






FB2F : 


A9 


00 




INIT 


LDA 


#$00 


CLR STATUS FOR DEBUG 


FB31 : 


85 


48 






STA 


STATUS 


SOFTWARE 


FB33 : 


AD 


56 


CO 




LDA 


LORES 




FB36 : 


AD 


54 


CO 




LDA 


LOWSCR 


INIT VIDEO MODE 


FB39 : 


AD 


51 


CO 


SETTXT 


LDA 


TXTSET 


SET FOR TEXT MODE 


FB3C: 


A9 


00 






LDA 


#$00 


FULL SCREEN WINDOW 


FB3E : 


FO 


OB 






BEQ 


SETWND 




FB40 : 


AD 


50 


CO 


SETGR 


LDA 


TXTCLR 


SET FOR GRAPHICS MODE 


FB43 : 


AD 


53 


CO 




LDA 


MIXSET 


LOWER 4 LINES AS 


FB46 : 


20 


36 


F8 




JSR 


CLRTOP 


TEXT WINDOW 


FB49 : 


A9 


14 






LDA 


#$14 




FB4B : 


85 


22 




SETWND 


STA 


WNDTOP 


SET FOR 4 COL WINDOW 


FB4D : 


A9 


00 






LDA 


#$00 


TOP IN A-REG, 


FB4F : 


85 


20 






STA 


WNDLFT 


BTTM AT LINE 24 


FB51 : 


A9 


28 






LDA 


#$28 




FB53 : 


85 


21 






STA 


WNDWDTH 




FB55 : 


A9 


18 






LDA 


#$18 




FB57 : 


85 


23 






STA 


WNDBTM 


VTAB TO ROW 23 


FB59 : 


A9 


17 






LDA 


#$17 




FB5B : 


85 


25 




TABV 


STA 


CV 


VTABS TO ROW IN A-REG 


FB5D : 


4C 


22 


FC 




JMP 


VTAB 




FB60 : 


20 


A4 


FB 


MULPM 


JSR 


MD1 


ABS VAL OF AC AUX 


FB63 : 


AO 


10 




MUL 


LDY 


#$10 


INDEX FOR 16 BITS 


FB65 : 


A5 


50 




MUL2 


LDA 


ACL 


ACX * AUX + XTND 


FB67 : 


4A 








LSR 


A 


TO AC, XTND 


FB68 : 


90 


OC 






BCC 


MUL 4 


IF NO CARRY, 


FB6A: 


18 








CLC 




NO PARTIAL PROD. 


FB6B : 


A2 


FE 






LDX 


#$FE 




FB6D : 


B5 


54 




MUL 3 


LDA 


XTNDL+2 , X 


ADD MPLCND (AUX) 


FB6F : 


75 


56 






ADC 


AUXL+2 ,X 


TO PARTIAL PROD 


FB71 : 


95 


54 






STA 


XTNDL+2 ,X 


( XTND ) 


FB73 : 


E8 








INX 






FB74 : 


DO 


F7 






BNE 


MUL 3 




FB76 : 


A2 


03 




MUL 4 


LDX 


#$03 




FB78 : 


76 






MUL 5 


DFB 


$76 




FB79 : 


50 








DFB 


$50 




FB7A: 


CA 








DEX 






FB7B : 


10 


FB 






BPL 


MUL 5 




FB7D : 


88 








DEY 






FB7E : 


DO 


E5 






BNE 


MUL 2 




FB8 : 


60 








RTS 







82 



FB81 : 


20 


A4 


FB 


DIVPM 


JSR 


MD1 


ABS VAL OF AC, AUX. 


FB84 : 


AO 


10 




DIV 


LDY 


#$10 


INDEX FOR 16 BITS 


FB86 : 


06 


50 




DIV2 


ASL 


ACL 




FB88 : 


26 


51 






ROL 


ACH 




FB8A : 


26 


52 






ROL 


XTNDL 


XTND/AUX 


FB8C : 


26 


53 






ROL 


XTNDH 


TO AC. 


FB8E : 


38 








SEC 






FB8F: 


A5 


52 






LDA 


XTNDL 




FB91 : 


E5 


54 






SBC 


AUXL 


MOD TO XTND. 


FB93: 


AA 








TAX 






FB94 : 


A5 


53 






LDA 


XTNDH 




FB96 : 


E5 


55 






SBC 


AUXH 




FB98 : 


90 


06 






BCC 


DIV3 




FB9A : 


86 


52 






STX 


XTNDL 




FB9C : 


85 


53 






STA 


XTNDH 




FB9E : 


E6 


50 






INC 


ACL 




FBAO : 


88 






DIV3 


DEY 






FBA1 : 


DO 


E3 






BNE 


DIV2 




FBA3 : 


60 








RTS 






FBA4 : 


AO 


00 




MD1 


LDY 


#$00 


ABS VAL OF AC, AUX 


FBA6 : 


84 


2F 






STY 


SIGN 


WITH RESULT SIGN 


FBA8 : 


A2 


54 






LDX 


#AUXL 


IN LSB OF SIGN. 


FBAA : 


20 


AF 


FB 




JSR 


MD3 




FBAD : 


A2 


50 






LDX 


#ACL 




FBAF : 


B5 


01 




MD3 


LDA 


LOCI ,X 


X SPECIFIES AC OR AUX 


FBB1 : 


10 


OD 






BPL 


MDRTS 




FBB3 : 


38 








SEC 






FBB4 : 


98 








TYA 






FBB5 : 


F5 


00 






SBC 


LOCO ,X 


COMPL SPECIFIED REG 


FBB7 : 


95 


00 






STA 


LOCO ,X 


IF NEG. 


FBB9 : 


98 








TYA 






FBBA: 


F5 


01 






SBC 


LOCI ,X 




FBBC: 


95 


01 






STA 


LOCI ,X 




FBBE : 


E6 


2F 






INC 


SIGN 




FBCO : 


60 






MDRTS 


RTS 






FBC1 : 


48 






BASCALC 


PHA 




CALC BASE ADR IN BASL , H 


FBC2 : 


4A 








LSR 


A 


FOR GIVEN LINE NO 


FBC3 : 


29 


03 






AND 


#$03 


0&lt=LINE NO.&lt=$17 


FBC5 : 


09 


04 






ORA 


#$04 


ARG= OABCDE , GENERATE 


FBC7 : 


85 


29 






STA 


BASH 


BASH=00 00 01CD 


FBC9 : 


68 








PLA 




AND 


FBCA: 


29 


18 






AND 


#$18 


BASL=EABAB0 


FBCC: 


90 


02 






BCC 


BSCLC2 




FBCE : 


69 


7F 






ADC 


#$7F 




FBDO : 


85 


28 




BSCLC2 


STA 


BASL 




FBD2 : 


OA 








ASL 






FBD3 : 


OA 








ASL 






FBD4 : 


05 


28 






ORA 


BASL 




FBD6 : 


85 


28 






STA 


BASL 




FBD8 : 


60 








RTS 






FBD9 : 


C9 


87 




BELLI 


CMP 


#$87 


BELL CHAR? ( CNTRL-G ) 


FBDB : 


DO 


12 






BNE 


RTS2B 


NO , RETURN 


FBDD: 


A9 


40 






LDA 


#$40 


DELAY .01 SECONDS 


FBDF : 


20 


A8 


FC 




JSR 


WAIT 




FBE2 : 


AO 


CO 






LDY 


#$co 




FBE4 : 


A9 


OC 




BELL2 


LDA 


#$oc 


TOGGLE SPEAKER AT 


FBE6 : 


20 


A8 


FC 




JSR 


WAIT 


1 KHZ FOR .1 SEC. 


FBE9 : 


AD 


30 


CO 




LDA 


SPKR 




FBEC: 


88 








DEY 






FBED: 


DO 


F5 






BNE 


BELL2 




FBEF : 


60 






RTS2B 


RTS 






FBFO : 


A4 


24 




STOADV 


LDY 


CH 


CURSOR H INDEX TO Y-REG 


FBF2 : 


91 


28 






STA 


( BASL ) , Y 


STORE CHAR IN LINE 


FBF4 : 


E6 


24 




ADVANCE 


INC 


CH 


INCREMENT CURSOR H INDEX 


FBF6 : 


A5 


24 






LDA 


CH 


(MOVE RIGHT) 


FBF8 : 


C5 


21 






CMP 


WNDWDTH 


BEYOND WINDOW WIDTH? 


FBFA: 


BO 


66 






BCS 


CR 


YES CR TO NEXT LINE 


FBFC: 


60 






RTS3 


RTS 




NO , RETURN 


FBFD: 


C9 


AO 




VIDOUT 


CMP 


#$A0 


CONTROL CHAR? 


FBFF : 


BO 


EF 






BCS 


STOADV 


NO, OUTPUT IT. 


FC01 : 


A8 








TAY 




INVERSE VIDEO? 


FC02 : 


10 


EC 






BPL 


STOADV 


YES, OUTPUT IT. 


FC04: 


C9 


8D 






CMP 


#$8D 


CR? 


FC06 : 


FO 


5A 






BEQ 


CR 


YES . 


FC08 : 


C9 


8A 






CMP 


#$8A 


LINE FEED? 


FCOA: 


FO 


5A 






BEQ 


LF 


IF SO, DO IT. 


FCOC: 


C9 


88 






CMP 


#$88 


BACK SPACE? ( CNTRL-H ) 


FCOE : 


DO 


C9 






BNE 


BELLI 


NO, CHECK FOR BELL. 


FCIO : 


C6 


24 




BS 


DEC 


CH 


DECREMENT CURSOR H INDEX 


FC12 : 


10 


E8 






BPL 


RTS3 


IF POS, OK. ELSE MOVE UP 


FC14 : 


A5 


21 






LDA 


WNDWDTH 


SET CH TO WNDWDTH- 1 


FC16 : 


85 


24 






STA 


CH 




FC18 : 


C6 


24 






DEC 


CH 


(RIGHTMOST SCREEN POS) 


FC1A: 


A5 


22 




UP 


LDA 


WNDTOP 


CURSOR V INDEX 


FC1C: 


C5 


25 






CMP 


CV 





83 



FC1E : 


BO 


OB 




BCS 


RTS4 


IF TOP LINE THEN RETURN 


FC20 : 


C6 


25 




DEC 


CV 


DEC CURSOR V- INDEX 


FC22 : 


A5 


25 


VTAB 


LDA 


CV 


GET CURSOR V- INDEX 


FC24: 


20 


CI FB 


VTABZ 


JSR 


BASCALC 


GENERATE BASE ADR 


FC27 : 


65 


20 




ADC 


WNDLFT 


ADD WINDOW LEFT INDEX 


FC29 : 


85 


28 




STA 


BASL 


TO BASL 


FC2B : 


60 




RTS4 


RTS 






FC2C: 


49 


CO 


ESC1 


EOR 


#$C0 


ESC? 


FC2E : 


FO 


28 




BEQ 


HOME 


IF SO, DO HOME AND CLEAR 


FC30 : 


69 


FD 




ADC 


#$FD 


ESC-A OR B CHECK 


FC32 : 


90 


CO 




BCC 


ADVANCE 


A, ADVANCE 


FC34: 


FO 


DA 




BEQ 


BS 


B , BACKSPACE 


FC36 : 


69 


FD 




ADC 


#$FD 


ESC-C OR D CHECK 


FC38 : 


90 


2C 




BCC 


LF 


C, DOWN 


FC3A: 


FO 


DE 




BEQ 


UP 


D, GO UP 


FC3C: 


69 


FD 




ADC 


#$FD 


ESC-E OR F CHECK 


FC3E : 


90 


5C 




BCC 


CLREOL 


E, CLEAR TO END OF LINE 


FC40 : 


DO 


E9 




BNE 


RTS 4 


NOT F, RETURN 


FC42 : 


A4 


24 


CLREOP 


LDY 


CH 


CURSOR H TO Y INDEX 


FC44: 


A5 


25 




LDA 


CV 


CURSOR V TO A-REGISTER 


FC46 : 


48 




CLE0P1 


PHA 




SAVE CURRENT LINE ON STK 


FC47 : 


20 


24 FC 




JSR 


VTABZ 


CALC BASE ADDRESS 


FC4A : 


20 


9E FC 




JSR 


CLEOLZ 


CLEAR TO EOL, SET CARRY 


FC4D : 


AO 


00 




LDY 


#$00 


CLEAR FROM H INDEX=0 FOR REST 


FC4F : 


68 






PLA 




INCREMENT CURRENT LINE 


FC50 : 


69 


00 




ADC 


#$00 


(CARRY IS SET) 


FC52 : 


C5 


23 




CMP 


WNDBTM 


DONE TO BOTTOM OF WINDOW? 


FC54: 


90 


FO 




BCC 


CLEOP1 


NO, KEEP CLEARING LINES 


FC56 : 


BO 


CA 




BCS 


VTAB 


YES, TAB TO CURRENT LINE 


FC58 : 


A5 


22 


HOME 


LDA 


WNDTOP 


INIT CURSOR V 


FC5A : 


85 


25 




STA 


CV 


AND H- INDICES 


FC5C: 


AO 


00 




LDY 


#$00 




FC5E : 


84 


24 




STY 


CH 


THEN CLEAR TO END OF PAGE 


FC60 : 


FO 


E4 




BEQ 


CLEOP1 




FC62 : 


A9 


00 


CR 


LDA 


#$00 


CURSOR TO LEFT OF INDEX 


FC64 : 


85 


24 




STA 


CH 


(RET CURSOR H=0 ) 


FC66 : 


E6 


25 


LF 


INC 


CV 


INCR CURSOR V(DOWN 1 LINE) 


FC68: 


A5 


25 




LDA 


CV 




FC6A: 


C5 


23 




CMP 


WNDBTM 


OFF SCREEN? 


FC6C: 


90 


B6 




BCC 


VTABZ 


NO, SET BASE ADDR 


FC6E : 


C6 


25 




DEC 


CV 


DECR CURSOR V (BACK TO BOTTOM 


FC70 : 


A5 


22 


SCROLL 


LDA 


WNDTOP 


START AT TOP OF SCRL WNDW 


FC72 : 


48 






PHA 






FC73 : 


20 


24 FC 




JSR 


VTABZ 


GENERATE BASE ADR 


FC76 : 


A5 


28 


SCRL1 


LDA 


BASL 


COPY BASL , H 


FC78 : 


85 


2A 




STA 


BAS2L 


TO BAS2L , H 


FC7A: 


A5 


29 




LDA 


BASH 




FC7C : 


85 


2B 




STA 


BAS2H 




FC7E : 


A4 


21 




LDY 


WNDWDTH 


INIT Y TO RIGHTMOST INDEX 


FC80: 


88 






DEY 




OF SCROLLING WINDOW 


FC81 : 


68 






PLA 






FC82 : 


69 


01 




ADC 


#$01 


INCR LINE NUMBER 


FC84 : 


C5 


23 




CMP 


WNDBTM 


DONE? 


FC86: 


BO 


OD 




BCS 


SCRL3 


YES, FINISH 


FC88: 


48 






PHA 






FC89 : 


20 


24 FC 




JSR 


VTABZ 


FORM BASL , H (BASE ADDR) 


FC8C : 


Bl 


28 


SCRL2 


LDA 


( BASL ) , Y 


MOVE A CHR UP ON LINE 


FC8E : 


91 


2A 




STA 


( BAS2L ) , Y 




FC90 : 


88 






DEY 




NEXT CHAR OF LINE 


FC91 : 


10 


F9 




BPL 


SCRL2 




FC93 : 


30 


El 




BMI 


SCRL1 


NEXT LINE (ALWAYS TAKEN) 


FC95 : 


AO 


00 


SCRL3 


LDY 


#$00 


CLEAR BOTTOM LINE 


FC97 : 


20 


9E FC 




JSR 


CLEOLZ 


GET BASE ADDR FOR BOTTOM LINE 


FC9A : 


BO 


86 




BCS 


VTAB 


CARRY IS SET 


FC9C : 


A4 


24 


CLREOL 


LDY 


CH 


CURSOR H INDEX 


FC9E : 


A9 


AO 


CLEOLZ 


LDA 


#$A0 




FCAO : 


91 


28 


CLEOL2 


STA 


( BASL ) , Y 


STORE BLANKS FROM 'HERE' 


FCA2 : 


C8 






INY 




TO END OF LINES (WNDWDTH) 


FCA3 : 


C4 


21 




CPY 


WNDWDTH 




FCA5 : 


90 


F9 




BCC 


CLEOL2 




FCA7 : 


60 






RTS 






FCA8 : 


38 




WAIT 


SEC 






FCA9 : 


48 




WAIT2 


PHA 






FCAA: 


E9 


01 


WAIT3 


SBC 


#$01 




FCAC: 


DO 


FC 




BNE 


WAIT3 


1.0204 USEC 


FCAE : 


68 






PLA 




( 13+27/2*A+5/2*A*A) 


FCAF: 


E9 


01 




SBC 


#$01 




FCB1 : 


DO 


F6 




BNE 


WAIT2 




FCB3: 


60 






RTS 






FCB4 : 


E6 


42 


NXTA4 


INC 


A4L 


INCR 2 -BYTE A4 


FCB6 : 


DO 


02 




BNE 


NXTA1 


AND Al 


FCB8 : 


E6 


43 




INC 


A4H 




FCBA: 


A5 


3C 


NXTA1 


LDA 


AIL 


INCR 2 -BYTE Al . 


FCBC: 


C5 


3E 




CMP 


A2L 




FCBE : 


A5 


3D 




LDA 


A1H 


AND COMPARE TO A2 



84 



FCCO : 


E5 


3F 






SBC 


A2H 




FCC2 : 


E6 


3C 






INC 


AIL 


(CARRY SET IF &gt= ) 


FCC4: 


DO 


02 






BNE 


RTS4B 




FCC6 : 


E6 


3D 






INC 


A1H 




FCC8: 


60 






RTS4B 


RTS 






FCC9 : 


AO 


4B 




HEADR 


LDY 


#$4B 


WRITE A*256 'LONG 1' 


FCCB : 


20 


DB 


FC 




JSR 


ZERDLY 


HALF CYCLES 


FCCE : 


DO 


F9 






BNE 


HEADR 


(650 USEC EACH) 


FCDO : 


69 


FE 






ADC 


#$FE 




FCD2 : 


BO 


F5 






BCS 


HEADR 


THEN A ' SHORT ' 


FCD4 : 


AO 


21 






LDY 


#$21 


(400 USEC ) 


FCD6 : 


20 


DB 


FC 


WRBIT 


JSR 


ZERDLY 


WRITE TWO HALF CYCLES 


FCD9 : 


C8 








INY 




OF 250 USEC ('0') 


FCDA : 


C8 








INY 




OR 500 USEC ('0') 


FCDB : 


88 






ZERDLY 


DEY 






FCDC: 


DO 


FD 






BNE 


ZERDLY 




FCDE : 


90 


05 






BCC 


WRTAPE 


Y IS COUNT FOR 


FCEO : 


AO 


32 






LDY 


#$32 


TIMING LOOP 


FCE2 : 


88 






ONEDLY 


DEY 






FCE3 : 


DO 


FD 






BNE 


ONEDLY 




FCE5 : 


AC 


20 


CO 


WRTAPE 


LDY 


TAPEOUT 




FCE8 : 


AO 


2C 






LDY 


#$2C 




FCEA: 


CA 








DEX 






FCEB : 


60 








RTS 






FCEC: 


A2 


08 




RDBYTE 


LDX 


#$08 


8 BITS TO READ 


FCEE : 


48 






RDBYT2 


PHA 




READ TWO TRANSITIONS 


FCEF : 


20 


FA 


FC 




JSR 


RD2BIT 


(FIND EDGE) 


FCF2 : 


68 








PLA 






FCF3 : 


2A 








ROL 




NEXT BIT 


FCF4 : 


AO 


3A 






LDY 


#$3A 


COUNT FOR SAMPLES 


FCF6 : 


CA 








DEX 






FCF7 : 


DO 


F5 






BNE 


RDBYT2 




FCF9 : 


60 








RTS 






FCFA : 


20 


FD 


FC 


RD2BIT 


JSR 


RDBIT 




FCFD : 


88 






RDBIT 


DEY 




DECR Y UNTIL 


FCFE : 


AD 


60 


CO 




LDA 


TAPEIN 


TAPE TRANSITION 


FDOl : 


45 


2F 






EOR 


LASTIN 




FD0 3 : 


10 


F8 






BPL 


RDBIT 




FD05 : 


45 


2F 






EOR 


LASTIN 




FD07 : 


85 


2F 






STA 


LASTIN 




FD09 : 


CO 


80 






CPY 


#$80 


SET CARRY ON Y 


FDOB : 


60 








RTS 






FDOC: 


A4 


24 




RDKEY 


LDY 


CH 




FDOE : 


Bl 


28 






LDA 


( BASL ) , Y 


SET SCREEN TO FLASH 


FDIO : 


48 








PHA 






FD11 : 


29 


3F 






AND 


#$3F 




FD13 : 


09 


40 






ORA 


#$40 




FD15 : 


91 


28 






STA 


( BASL ) , Y 




FD17 : 


68 








PLA 






FD18 : 


6C 


38 


00 




JMP 


( KSWL ) 


GO TO USER KEY- IN 


FD1B : 


E6 


4E 




KEYIN 


INC 


RNDL 




FD1D : 


DO 


02 






BNE 


KEYIN2 


INCR RND NUMBER 


FD1F : 


E6 


4F 






INC 


RNDH 




FD21 : 


2C 


00 


CO 


KEYIN2 


BIT 


KBD 


KEY DOWN? 


FD24 : 


10 


F5 






BPL 


KEYIN 


LOOP 


FD26 : 


91 


28 






STA 


( BASL ) , Y 


REPLACE FLASHING SCREEN 


FD28 : 


AD 


00 


CO 




LDA 


KBD 


GET KEYCODE 


FD2B : 


2C 


10 


CO 




BIT 


KBDSTRB 


CLR KEY STROBE 


FD2E : 


60 








RTS 






FD2F : 


20 


oc 


FD 


ESC 


JSR 


RDKEY 


GET KEYCODE 


FD32 : 


20 


2C 


FC 




JSR 


ESC1 


HANDLE ESC FUNC . 


FD35 : 


20 


oc 


FD 


RDCHAR 


JSR 


RDKEY 


READ KEY 


FD38: 


C9 


9B 






CMP 


#$9B 


ESC? 


FD3A : 


FO 


F3 






BEQ 


ESC 


YES, DON'T RETURN 


FD3C: 


60 








RTS 






FD3D : 


A5 


32 




NOTCR 


LDA 


INVFLG 




FD3F : 


48 








PHA 






FD40 : 


A9 


FF 






LDA 


#$FF 




FD42 : 


85 


32 






STA 


INVFLG 


ECHO USER LINE 


FD44 : 


BD 


00 


02 




LDA 


IN,X 


NON INVERSE 


FD47 : 


20 


ED 


FD 




JSR 


COUT 




FD4A : 


68 








PLA 






FD4B : 


85 


32 






STA 


INVFLG 




FD4D : 


BD 


00 


02 




LDA 


IN,X 




FD50 : 


C9 


88 






CMP 


#$88 


CHECK FOR EDIT KEYS 


FD52 : 


FO 


ID 






BEQ 


BCKSPC 


BS, CTRL-X 


FD54 : 


C9 


98 






CMP 


#$98 




FD56: 


FO 


OA 






BEQ 


CANCEL 




FD58 : 


EO 


F8 






CPX 


#$F8 


MARGIN? 


FD5A : 


90 


03 






BCC 


NOTCR1 




FD5C : 


20 


3A 


FF 




JSR 


BELL 


YES, SOUND BELL 


FD5F: 


E8 






N0TCR1 


INX 




ADVANCE INPUT INDEX 


FD60 : 


DO 


13 






BNE 


NXTCHAR 




FD62 : 


A9 


DC 




CANCEL 


LDA 


#$DC 


BACKSLASH AFTER CANCELLED 


FD6 4 : 


20 


ED 


FD 




JSR 


COUT 





85 



FD6 7 


20 


8E 


FD 


GETLNZ 


JSR 


CROUT 


OUTPUT CR 


FD6A 


A5 


33 




GETLN 


LDA 


PROMPT 




FD6C 


20 


ED 


FD 




JSR 


COUT 


OUTPUT PROMPT CHAR 


FD6F 


A2 


01 






LDX 


#$01 


INIT INPUT INDEX 


FD71 


8A 






BCKSPC 


TXA 




WILL BACKSPACE TO 


FD72 


FO 


F3 






BEQ 


GETLNZ 




FD74 


CA 








DEX 






FD75 


20 


35 


FD 


NXTCHAR 


JSR 


RDCHAR 




FD78 


C9 


95 






CMP 


#PICK 


USE SCREEN CHAR 


FD7A 


DO 


02 






BNE 


CAPTST 


FOR CTRL-U 


FD7C 


Bl 


28 






LDA 


( BASL ) , Y 




FD7E 


C9 


EO 




CAPTST 


CMP 


#$E0 




FD80 


90 


02 






BCC 


ADDINP 


CONVERT TO CAPS 


FD82 


29 


DF 






AND 


#$DF 




FD84 


9D 


00 


02 


ADDINP 


STA 


IN,X 


ADD TO INPUT BUF 


FD8 7 


C9 


8D 






CMP 


#$8D 




FD89 


DO 


B2 






BNE 


NOTCR 




FD8B 


20 


9C 


FC 




JSR 


CLREOL 


CLR TO EOL IF CR 


FD8E 


A9 


8D 




CROUT 


LDA 


#$8D 




FD90 


DO 


5B 






BNE 


COUT 




FD92 


A4 


3D 




PRA1 


LDY 


A1H 


PRINT CR,A1 IN HEX 


FD94 


A6 


3C 






LDX 


AIL 




FD96 


20 


8E 


FD 


PRYX2 


JSR 


CROUT 




FD99 


20 


40 


F9 




JSR 


PRNTYX 




FD9C 


AO 


00 






LDY 


#$00 




FD9E 


A9 


AD 






LDA 


#$AD 


PRINT ' - ' 


FDAO 


4C 


ED 


FD 




JMP 


COUT 




FDA3 


A5 


3C 




XAM8 


LDA 


AIL 




FDA5 


09 


07 






ORA 


#$07 


SET TO FINISH AT 


FDA7 


85 


3E 






STA 


A2L 


MOD 8=7 


FDA9 


A5 


3D 






LDA 


A1H 




FDAB 


85 


3F 






STA 


A2H 




FDAD 


A5 


3C 




MODSCHK 


LDA 


AIL 




FDAF 


29 


07 






AND 


#$07 




FDB1 


DO 


03 






BNE 


DATAOUT 




FDB3 


20 


92 


FD 


XAM 


JSR 


PRA1 




FDB6 


A9 


AO 




DATAOUT 


LDA 


#$A0 




FDB8 


20 


ED 


FD 




JSR 


COUT 


OUTPUT BLANK 


FDBB 


Bl 


3C 






LDA 


(AIL) , Y 




FDBD 


20 


DA 


FD 




JSR 


PRBYTE 


OUTPUT BYTE IN HEX 


FDCO 


20 


BA 


FC 




JSR 


NXTA1 




FDC3 


90 


E8 






BCC 


MODSCHK 


CHECK IF TIME TO, 


FDC5 


60 






RTS4C 


RTS 




PRINT ADDR 


FDC6 


4A 






XAMPM 


LSR 


A 


DETERMINE IF MON 


FDC7 


90 


EA 






BCC 


XAM 


MODE IS XAM 


FDC9 


4A 








LSR 


A 


ADD, OR SUB 


FDCA 


4A 








LSR 


A 




FDCB 


A5 


3E 






LDA 


A2L 




FDCD 


90 


02 






BCC 


ADD 




FDCF 


49 


FF 






EOR 


#$FF 


SUB : FORM 2 ' S COMPLEMENT 


FDD1 


65 


3C 




ADD 


ADC 


AIL 




FDD 3 


48 








PHA 






FDD 4 


A9 


BD 






LDA 


#$BD 




FDD 6 


20 


ED 


FD 




JSR 


COUT 


PRINT '=', THEN RESULT 


FDD 9 


68 








PLA 






FDDA 


48 






PRBYTE 


PHA 




PRINT BYTE AS 2 HEX 


FDDB 


4A 








LSR 


A 


DIGITS, DESTROYS A-REG 


FDDC 


4A 








LSR 


A 




FDDD 


4A 








LSR 


A 




FDDE 


4A 








LSR 


A 




FDDF 


20 


E5 


FD 




JSR 


PRHEXZ 




FDE2 


68 








PLA 






FDE3 


29 


OF 




PRHEX 


AND 


#$0F 


PRINT HEX DIG IN A-REG 


FDE5 


09 


BO 




PRHEXZ 


ORA 


#$B0 


LSB ' S 


FDE7 


C9 


BA 






CMP 


#$BA 




FDE9 


90 


02 






BCC 


COUT 




FDEB 


69 


06 






ADC 


#$06 




FDED 


6C 


36 


00 


COUT 


JMP 


( CSWL ) 


VECTOR TO USER OUTPUT ROUTINE 


FDFO 


C9 


AO 




COUT1 


CMP 


#$A0 




FDF2 


90 


02 






BCC 


COUTZ 


DON'T OUTPUT CTRL' S INVERSE 


FDF4 


25 


32 






AND 


INVFLG 


MASK WITH INVERSE FLAG 


FDF6 


84 


35 




COUTZ 


STY 


YSAV1 


SAV Y-REG 


FDF8 


48 








PHA 




SAV A-REG 


FDF9 


20 


FD 


FB 




JSR 


VIDOUT 


OUTPUT A-REG AS ASCII 


FDFC 


68 








PLA 




RESTORE A-REG 


FDFD 


A4 


35 






LDY 


YSAV1 


AND Y-REG 


FDFF 


60 








RTS 




THEN RETURN 


FEOO 


C6 


34 




BL1 


DEC 


YSAV 




FE02 


FO 


9F 






BEQ 


XAM 8 




FE04 


CA 






BLANK 


DEX 




BLANK TO MON 


FE05 


DO 


16 






BNE 


SETMDZ 


AFTER BLANK 


FE07 


C9 


BA 






CMP 


#$BA 


DATA STORE MODE? 


FE09 


DO 


BB 






BNE 


XAMPM 


NO, XAM, ADD, OR SUB 


FEOB 


85 


31 




STOR 


STA 


MODE 


KEEP IN STORE MODE 


FEOD 


A5 


3E 






LDA 


A2L 





86 



FEOF : 


91 


40 






STA 


( A3L ) , Y 


STORE AS LOW BYTE AS ( A3 ) 


FE11 : 


E6 


40 






INC 


A3L 




FE13 : 


DO 


02 






BNE 


RTS 5 


INCR A3 , RETURN 


FE15 : 


E6 


41 






INC 


A3H 




FE17 : 


60 






RTS5 


RTS 






FE18 : 


A4 


34 




SETMODE 


LDY 


YSAV 


SAVE CONVERTED ' : ' , ' + ' , 


FE1A : 


B9 


FF 


01 




LDA 


IN-1 , Y 


' - ' , ' . ' AS MODE . 


FE1D : 


85 


31 




SETMDZ 


STA 


MODE 




FE1F : 


60 








RTS 






FE20 : 


A2 


01 




LT 


LDX 


#$01 




FE22 : 


B5 


3E 




LT2 


LDA 


A2L,X 


COPY A2 ( 2 BYTES ) TO 


FE24 : 


95 


42 






STA 


A4L,X 


A4 AND A5 


FE26 : 


95 


44 






STA 


A5L,X 




FE28 : 


CA 








DEX 






FE29 : 


10 


F7 






BPL 


LT2 




FE2B : 


60 








RTS 






FE2C: 


Bl 


3C 




MOVE 


LDA 


(AIL) , Y 


MOVE ( Al TO A2 ) TO 


FE2E : 


91 


42 






STA 


( A4L ) , Y 


(A4) 


FE30 : 


20 


B4 


FC 




JSR 


NXTA4 




FE33 : 


90 


F7 






BCC 


MOVE 




FE35 : 


60 








RTS 






FE36 : 


Bl 


3C 




VFY 


LDA 


(AIL) ,Y 


VERIFY (Al TO A2 ) WITH 


FE38 : 


Dl 


42 






CMP 


(A4L) , Y 


(A4) 


FE3A: 


FO 


1C 






BEQ 


VFYOK 




FE3C: 


20 


92 


FD 




JSR 


PRA1 




FE3F : 


Bl 


3C 






LDA 


(AIL) , Y 




FE41 : 


20 


DA 


FD 




JSR 


PRBYTE 




FE44 : 


A9 


AO 






LDA 


#$A0 




FE46 : 


20 


ED 


FD 




JSR 


COUT 




FE49 : 


A9 


A8 






LDA 


#$A8 




FE4B : 


20 


ED 


FD 




JSR 


COUT 




FE4E : 


Bl 


42 






LDA 


( A4L ) , Y 




FE50 : 


20 


DA 


FD 




JSR 


PRBYTE 




FE53 : 


A9 


A9 






LDA 


#$A9 




FE55 : 


20 


ED 


FD 




JSR 


COUT 




FE58 : 


20 


B4 


FC 


VFYOK 


JSR 


NXTA4 




FE5B : 


90 


D9 






BCC 


VFY 




FE5D: 


60 








RTS 






FE5E : 


20 


75 


FE 


LIST 


JSR 


A1PC 


MOVE Al ( 2 BYTES ) TO 


FE61 : 


A9 


14 






LDA 


#$14 


PC IF SPEC'D AND 


FE63 : 


48 






LIST2 


PHA 




DISEMBLE 20 INSTRS 


FE64 : 


20 


DO 


F8 




JSR 


INSTDSP 




FE67 : 


20 


53 


F9 




JSR 


PCADJ 


ADJUST PC EACH INSTR 


FE6A: 


85 


3A 






STA 


PCL 




FE6C: 


84 


3B 






STY 


PCH 




FE6E : 


68 








PLA 






FE6F : 


38 








SEC 






FE70 : 


E9 


01 






SBC 


#$01 


NEXT OF 2 INSTRS 


FE72 : 


DO 


EF 






BNE 


LIST2 




FE74 : 


60 








RTS 






FE75 : 


8A 






A1PC 


TXA 




IF USER SPEC'D ADR 


FE76 : 


FO 


07 






BEQ 


A1PCRTS 


COPY FROM Al TO PC 


FE78 : 


B5 


3C 




A1PCLP 


LDA 


A1L,X 




FE7A: 


95 


3A 






STA 


PCL,X 




FE7C: 


CA 








DEX 






FE7D : 


10 


F9 






BPL 


A1PCLP 




FE7F: 


60 






A1PCRTS 


RTS 






FE80 : 


AO 


3F 




SETINV 


LDY 


#$3F 


SET FOR INVERSE VID 


FE82 : 


DO 


02 






BNE 


SETIFLG 


VIA COUT1 


FE84 : 


AO 


FF 




SETNORM 


LDY 


#$FF 


SET FOR NORMAL VID 


FE86 : 


84 


32 




SETIFLG 


STY 


INVFLG 




FE88 : 


60 








RTS 






FE89 : 


A9 


00 




SETKBD 


LDA 


#$00 


SIMULATE PORT #0 INPUT 


FE8B : 


85 


3E 




INPORT 


STA 


A2L 


SPECIFIED (KEYIN ROUTINE) 


FE8D: 


A2 


38 




INPRT 


LDX 


#KSWL 




FE8F : 


AO 


IB 






LDY 


#KEYIN 




FE91 : 


DO 


08 






BNE 


IOPRT 




FE93 : 


A9 


00 




SETVID 


LDA 


#$00 


SIMULATE PORT #0 OUTPUT 


FE95 : 


85 


3E 




OUTPORT 


STA 


A2L 


SPECIFIED (COUT1 ROUTINE) 


FE97 : 


A2 


36 




OUTPRT 


LDX 


#CSWL 




FE99 : 


AO 


FO 






LDY 


#C0UT1 




FE9B : 


A5 


3E 




IOPRT 


LDA 


A2L 


SET RAM IN/OUT VECTORS 


FE9D: 


29 


OF 






AND 


#$0F 




FE9F : 


FO 


06 






BEQ 


IOPRT1 




FEA1 : 


09 


CO 






ORA 


#IOADR/256 




FEA3 : 


AO 


00 






LDY 


#$00 




FEA5 : 


FO 


02 






BEQ 


IOPRT2 




FEA7 : 


A9 


FD 




IOPRT1 


LDA 


#COUTl/256 




FEA9 : 


94 


00 




IOPRT2 


STY 


LOCO ,X 




FEAB : 


95 


01 






STA 


LOCI ,X 




FEAD: 


60 








RTS 






FEAE : 


EA 








NOP 






FEAF : 


EA 








NOP 






FEBO : 


4C 


00 


EO 


XBASIC 


JMP 


BASIC 


TO BASIC WITH SCRATCH 


FEB3 : 


4C 


03 


EO 


BASCONT 


JMP 


BASIC2 


CONTINUE BASIC 



87 



FEB6 : 


20 


75 


FE 


GO 


JSR 


A1PC 


ADR TO PC IF SPEC'D 


FEB9 : 


20 


3F 


FF 




JSR 


RESTORE 


RESTORE META REGS 


FEBC : 


6C 


3A 


00 




JMP 


(PCL) 


GO TO USER SUBR 


FEBF : 


4C 


D7 


FA 


REGZ 


JMP 


REGDSP 


TO REG DISPLAY 


FEC2 : 


C6 


34 




TRACE 


DEC 


YSAV 




FEC4 : 


20 


75 


FE 


STEPZ 


JSR 


A1PC 


ADR TO PC IF SPEC'D 


FEC7 : 


4C 


43 


FA 




JMP 


STEP 


TAKE ONE STEP 


FECA: 


4C 


F8 


03 


USR 


JMP 


USRADR 


TO USR SUBR AT USRADR 


FECD: 


A9 


40 




WRITE 


LDA 


#$40 




FECF: 


20 


C9 


FC 




JSR 


HEADR 


WRITE 10 -SEC HEADER 


FED2 : 


AO 


27 






LDY 


#$27 




FED4 : 


A2 


00 




WR1 


LDX 


#$00 




FED6 : 


41 


3C 






EOR 


(A1L,X) 




FED8 : 


48 








PHA 






FED9 : 


Al 


3C 






LDA 


(A1L,X) 




FEDB : 


20 


ED 


FE 




JSR 


WRBYTE 




FEDE : 


20 


BA 


FC 




JSR 


NXTA1 




FEE1 : 


AO 


ID 






LDY 


#$1D 




FEE3 : 


68 








PLA 






FEE4 : 


90 


EE 






BCC 


WR1 




FEE6 : 


AO 


22 






LDY 


#$22 




FEE8 : 


20 


ED 


FE 




JSR 


WRBYTE 




FEEB : 


FO 


4D 






BEQ 


BELL 




FEED: 


A2 


10 




WRBYTE 


LDX 


#$10 




FEEF : 


OA 






WRBYT2 


ASL 


A 




FEFO : 


20 


D6 


FC 




JSR 


WRBIT 




FEF3 : 


DO 


FA 






BNE 


WRBYT2 




FEF5 : 


60 








RTS 






FEF6 : 


20 


00 


FE 


CRMON 


JSR 


BL1 


HANDLE A CR AS BLANK 


FEF9 : 


68 








PLA 




THEN POP STACK 


FEFA: 


68 








PLA 




AND RTN TO MON 


FEFB : 


DO 


6C 






BNE 


MONZ 




FEFD : 


20 


FA 


FC 


READ 


JSR 


RD2BIT 


FIND TAPEIN EDGE 


FFOO : 


A9 


16 






LDA 


#$16 




FF02 : 


20 


C9 


FC 




JSR 


HEADR 


DELAY 3 . 5 SECONDS 


FF05 : 


85 


2E 






STA 


CHKSUM 


INIT CHKSUM=$FF 


FF07 : 


20 


FA 


FC 




JSR 


RD2BIT 


FIND TAPEIN EDGE 


FFOA : 


AO 


24 




RD2 


LDY 


#$24 


LOOK FOR SYNC BIT 


FFOC: 


20 


FD 


FC 




JSR 


RDBIT 


( SHORT ) 


FFOF : 


BO 


F9 






BCS 


RD2 


LOOP UNTIL FOUND 


FF11 : 


20 


FD 


FC 




JSR 


RDBIT 


SKIP SECOND SYNC H-CYCLE 


FF14 : 


AO 


3B 






LDY 


#$3B 


INDEX FOR 0/1 TEST 


FF16 : 


20 


EC 


FC 


RD3 


JSR 


RDBYTE 


READ A BYTE 


FF19 : 


81 


3C 






STA 


(A1L,X) 


STORE AT ( Al ) 


FF1B : 


45 


2E 






EOR 


CHKSUM 




FF1D : 


85 


2E 






STA 


CHKSUM 


UPDATE RUNNING CHKSUM 


FF1F: 


20 


BA 


FC 




JSR 


NXTA1 


INC Al, COMPARE TO A2 


FF22 : 


AO 


35 






LDY 


#$35 


COMPENSATE 0/1 INDEX 


FF24 : 


90 


FO 






BCC 


RD3 


LOOP UNTIL DONE 


FF26 : 


20 


EC 


FC 




JSR 


RDBYTE 


READ CHKSUM BYTE 


FF29 : 


C5 


2E 






CMP 


CHKSUM 




FF2B : 


FO 


OD 






BEQ 


BELL 


GOOD, SOUND BELL AND RETURN 


FF2D : 


A9 


C5 




PRERR 


LDA 


#$C5 




FF2F: 


20 


ED 


FD 




JSR 


COUT 


PRINT "ERR", THEN BELL 


FF32 : 


A9 


D2 






LDA 


#$D2 




FF34 : 


20 


ED 


FD 




JSR 


COUT 




FF37 : 


20 


ED 


FD 




JSR 


COUT 




FF3A : 


A9 


87 




BELL 


LDA 


#$87 


OUTPUT BELL AND RETURN 


FF3C : 


4C 


ED 


FD 




JMP 


COUT 




FF3F : 


A5 


48 




RESTORE 


LDA 


STATUS 


RESTORE 6502 REG CONTENTS 


FF41 : 


48 








PHA 




USED BY DEBUG SOFTWARE 


FF42 : 


A5 


45 






LDA 


ACC 




FF44 : 


A6 


46 




RESTR1 


LDX 


XREG 




FF46 : 


A4 


47 






LDY 


YREG 




FF48 : 


28 








PLP 






FF49 : 


60 








RTS 






FF4A : 


85 


45 




SAVE 


STA 


ACC 


SAVE 6502 REG CONTENTS 


FF4C : 


86 


46 




SAV1 


STX 


XREG 




FF4E : 


84 


47 






STY 


YREG 




FF50 : 


08 








PHP 






FF51 : 


68 








PLA 






FF52 : 


85 


48 






STA 


STATUS 




FF54 : 


BA 








TSX 






FF55 : 


86 


49 






STX 


SPNT 




FF57 : 


D8 








CLD 






FF58 : 


60 








RTS 






FF59 : 


20 


84 


FE 


RESET 


JSR 


SETNORM 


SET SCREEN MODE 


FF5C: 


20 


2F 


FB 




JSR 


INIT 


AND INIT KBD/ SCREEN 


FF5F : 


20 


93 


FE 




JSR 


SETVID 


AS I/O DEV S 


FF62 : 


20 


89 


FE 




JSR 


SETKBD 




FF65: 


D8 






MON 


CLD 




MUST SET HEX MODE! 


FF66 : 


20 


3A 


FF 




JSR 


BELL 




FF69: 


A9 


AA 




MONZ 


LDA 


#$AA 


' * ' PROMPT FOR MON 


FF6B : 


85 


33 






STA 


PROMPT 




FF6D: 


20 


67 


FD 




JSR 


GETLNZ 


READ A LINE 



88 



FF70 : 


20 


C7 


FF 




JSR 


ZMODE 


CLEAR MON MODE, SCAN IDX 


FF73 : 


20 


A7 


FF 


NXTITM 


JSR 


GETNUM 


GET ITEM, NON-HEX 


FF76 : 


84 


34 






STY 


YSAV 


CHAR IN A- REG 


FF78 : 


AO 


17 






LDY 


#$17 


X-REG=0 IF NO HEX INPUT 


FF7A: 


88 






CHRSRCH 


DEY 






FF7B : 


30 


E8 






BMI 


MON 


NOT FOUND, GO TO MON 


FF7D : 


D9 


CC 


FF 




CMP 


CHRTBL , Y 


FIND CMND CHAR IN TEL 


FF80 : 


DO 


F8 






BNE 


CHRSRCH 




FF82 : 


20 


BE 


FF 




JSR 


TOSUB 


FOUND, CALL CORRESPONDING 


FF85 : 


A4 


34 






LDY 


YSAV 


SUBROUTINE 


FF87 : 


4C 


73 


FF 




JMP 


NXTITM 




FF8A : 


A2 


03 




DIG 


LDX 


#$03 




FF8C : 


OA 








ASL 


A 




FF8D : 


OA 








ASL 


A 


GOT HEX DIG, 


FF8E : 


OA 








ASL 


A 


SHIFT INTO A2 


FF8F : 


OA 








ASL 


A 




FF90 : 


OA 






NXTBIT 


ASL 


A 




FF91 : 


26 


3E 






ROL 


A2L 




FF93 : 


26 


3F 






ROL 


A2H 




FF95 : 


CA 








DEX 




LEAVE X=$FF IF DIG 


FF96: 


10 


F8 






BPL 


NXTBIT 




FF98 : 


A5 


31 




NXTBAS 


LDA 


MODE 




FF9A : 


DO 


06 






BNE 


NXTBS2 


IF MODE IS ZERO 


FF9C : 


B5 


3F 






LDA 


A2H,X 


THEN COPY A2 TO 


FF9E : 


95 


3D 






STA 


A1H,X 


Al AND A3 


FFAO : 


95 


41 






STA 


A3H,X 




FFA2 : 


E8 






NXTBS2 


I NX 






FFA3 : 


FO 


F3 






BEQ 


NXTBAS 




FFA5 : 


DO 


06 






BNE 


NXTCHR 




FFA7 : 


A2 


00 




GETNUM 


LDX 


#$00 


CLEAR A2 


FFA9 : 


86 


3E 






STX 


A2L 




FFAB : 


86 


3F 






STX 


A2H 




FFAD: 


B9 


00 


02 


NXTCHR 


LDA 


IN, Y 


GET CHAR 


FFBO : 


C8 








INY 






FFB1 : 


49 


BO 






EOR 


#$B0 




FFB3 : 


C9 


OA 






CMP 


#$0A 




FFB5 : 


90 


D3 






BCC 


DIG 


IF HEX DIG, THEN 


FFB7 : 


69 


88 






ADC 


#$88 




FFB9 : 


C9 


FA 






CMP 


#$FA 




FFBB : 


BO 


CD 






BCS 


DIG 




FFBD: 


60 








RTS 






FFBE : 


A9 


FE 




TOSUB 


LDA 


#GO/256 


PUSH HIGH-ORDER 


FFCO : 


48 








PHA 




SUBR ADR ON STK 


FFC1 : 


B9 


E3 


FF 




LDA 


SUBTBL, Y 


PUSH LOW-ORDER 


FFC4 : 


48 








PHA 




SUBR ADR ON STK 


FFC5 : 


A5 


31 






LDA 


MODE 




FFC7 : 


AO 


00 




ZMODE 


LDY 


#$00 


CLR MODE, OLD MODE 


FFC9 : 


84 


31 






STY 


MODE 


TO A- REG 


FFCB : 


60 








RTS 




GO TO SUBR VIA RTS 


FFCC: 


BC 






CHRTBL 


DFB 


$BC 


F( "CTRL-C" ) 


FFCD: 


B2 








DFB 


$B2 


F( "CTRL-Y" ) 


FFCE : 


BE 








DFB 


$BE 


F( "CTRL-E" ) 


FFCF: 


ED 








DFB 


$ED 


F{ "T" ) 


FFDO : 


EF 








DFB 


$EF 


F( "V" ) 


FFD1 : 


C4 








DFB 


$C4 


F( "CTRL-K" ) 


FFD2 : 


EC 








DFB 


$EC 


F ( " S " ) 


FFD3 : 


A9 








DFB 


$A9 


F( "CTRL-P" ) 


FFD4 : 


BB 








DFB 


$BB 


F( "CTRL-B" ) 


FFD5 : 


A6 








DFB 


$A6 


F( "-" ) 


FFD6 : 


A4 








DFB 


$A4 


F( "+" ) 


FFD7 : 


06 








DFB 


$06 


F("M") (F=EX-OR $B0+$89) 


FFD8 : 


95 








DFB 


$95 


F( "&lt" ) 


FFD9 : 


07 








DFB 


$07 


F( "N" ) 


FFDA : 


02 








DFB 


$02 


F( "I" ) 


FFDB : 


05 








DFB 


$05 


F( "L" ) 


FFDC : 


FO 








DFB 


$F0 


F( "W" ) 


FFDD : 


00 








DFB 


$00 


F( "G" ) 


FFDE : 


EB 








DFB 


$EB 


F( "R" ) 


FFDF : 


93 








DFB 


$93 


F( " :" ) 


FFEO : 


A7 








DFB 


$A7 


F( " ." ) 


FFE1 : 


C6 








DFB 


$C6 


F( "CR" ) 


FFE2 : 


99 








DFB 


$99 


F( BLANK) 


FFE3 : 


B2 






SUBTBL 


DFB 


BASCONT-1 




FFE4 : 


C9 








DFB 


USR-1 




FFE5 : 


BE 








DFB 


REGZ-1 




FFE6 : 


CI 








DFB 


TRACE -1 




FFE7 : 


35 








DFB 


VFY-1 




FFE8 : 


8C 








DFB 


INPRT-1 




FFE9 : 


C3 








DFB 


STEPZ-1 




FFEA : 


96 








DFB 


OUTPRT-1 




FFEB : 


AF 








DFB 


XBASIC-1 




FFEC : 


17 








DFB 


SETMODE- 1 




FFED: 


17 








DFB 


SETMODE- 1 




FFEE : 


2B 








DFB 


MOVE-1 




FFEF : 


IF 








DFB 


LT-1 





89 



FFFO : 


83 




DFB 


SETNORM- 1 


FFF1 : 


7F 




DFB 


SETINV- 1 


FFF2 : 


5D 




DFB 


LIST - 1 


FFF3 : 


CC 




DFB 


WRITE- 1 


FFF4 : 


B5 




DFB 


GO-1 


FFF5 : 


FC 




DFB 


READ - 1 


FFF6 : 


17 




DFB 


SETMODE- 1 


FFF7 : 


17 




DFB 


SETMODE- 1 


FFF8 : 


F5 




DFB 


CRMON - 1 


FFF9 : 


3 




DFB 


BLANK- 1 


FFFA : 


FB 




DFB 


NMI 


FFFB : 


3 




DFB 


NM 1/256 


FFFC : 


59 




DFB 


"D TP C 1 TPT 1 

Kb. fab. 1 


FFFD: 


FF 




DFB 


RESET/256 


FFFE : 


86 




DFB 


IRQ 


FFFF: 


FA 




DFB 


IRQ/256 






XQTNZ 


EQU 


$3C 



NMI VECTOR 



RESET VECTOR 



IRQ VECTOR 



90 



* APPLE-II * 

* MINI -ASSEMBLER * 

* * 

* COPYRIGHT 1977 BY * 

* APPLE COMPUTER INC. * 

* * 

* ALL RIGHTS RESERVED * 

* * 

* S. WOZNIAK * 









* 


A . BAUM 




* 










*********************** 










TITLE 


"APPLE- 


II MINI 


-ASSEMBLER" 








FORMAT 


EQU 


$2E 












LENGTH 


EQU 


$2F 












MODE 


EQU 


$31 












PROMPT 


EQU 


$33 












YSAV 


EQU 


$34 












L 


EQU 


$35 












PCL 


EQU 


$3A 












PCH 


EQU 


$3B 












A1H 


EQU 


$3D 












A2L 


EQU 


$3E 












A2H 


EQU 


$3F 












A4L 


EQU 


$42 












A4H 


EQU 


$43 












FMT 


EQU 


$44 












IN 


EQU 


$200 












INSDS2 


EQU 


$F88E 












INSTDSP 


EQU 


$F8D0 












PRBL2 


EQU 


$F94A 












PCADJ 


EQU 


$F953 












CHAR1 


EQU 


$F9B4 












CHAR 2 


EQU 


$F9BA 












MNEML 


EQU 


$F9C0 












MNEMR 


EQU 


$FA0 












CURSUP 


EQU 


$FC1A 












GETLNZ 


EQU 


$FD67 












COUT 


EQU 


$FDED 












BL1 


EQU 


$FE00 












A1PCLP 


EQU 


$FE78 












BELL 


EQU 


$FF3A 












GETNUM 


EQU 


$FFA7 












TOSUB 


EQU 


$FFBE 












ZMODE 


EQU 


$FFC7 












CHRTBL 


EQU 
ORG 


$FFCC 
$F500 






F500 


E9 


81 


REL 


SBC 


#$81 




IS FMT COMPATIBLE 


F502 


4A 






LSR 






WITH RELATIVE MODE? 


F503 


DO 


14 




BNE 


ERR3 




NO. 


F505 


A4 


3F 




LDY 


A2H 






F507 


A6 


3E 




LDX 


A2L 




DOUBLE DECREMENT 


F509 


DO 


01 




BNE 


REL2 






F50B 


88 






DEY 








F50C 


CA 




REL2 


DEX 








F50D 


8A 






TXA 








F50E 


18 






CLC 








F50F 


E5 


3A 




SBC 


PCL 




FORM ADDR-PC-2 


F511 


85 


3E 




STA 


A2L 






F513 


10 


01 




BPL 


REL3 






F515 


C8 






INY 








F516 


98 




REL3 


TYA 









91 



F517 : 


E5 


3B 






SBC 


PCH 


F5 19 : 


DO 


6B 






BNE 




F51B : 


A4 


2F 




U'TTiTr^^D 


LDY 


T CATr^U 

LnjlNU 1 il 


F51D: 


B9 


3D 


00 




LDA 


A1H,Y 


F5 2 : 


91 


3A 






STA 


( PCL ) , Y 


F522 : 


8 8 








DEY 




F523 : 


10 


F8 






BPL 


r viUUf Z 


F525 : 


20 


1A 


FC 




JSR 




F528 : 


20 


1A 


FC 




JSR 


(TTD OTTD 


F52B : 


20 


DO 


F8 




JSR 


±JN b 1 JJb f 


F52E : 


20 


53 


F9 




JSR 


PCADJ 


F531 : 


84 


3B 






STY 




F533 : 


85 


3A 






STA 


PCL 


F535 : 


4C 


95 


F5 




JMP 


IN A 1 J_i IJNhi 


F5 3 8 : 


20 


BE 


FF 


r AiS-HiMUlM 3 


JSR 


rrrinT I'D 


F5 3B : 


A4 


34 






LDY 


YSAV 


F5 3D : 


20 


A7 


FF 


r AiS-HiMUlM 


JSR 


GETNUM 


F54 : 


8 4 


34 






STY 




F542 : 


AO 


17 






LDY 


ff9-L ' 


F544 : 


8 8 






r AiS-iLMUN z 


DEY 




F545 : 


3 


4B 






BMI 


T_5 TP C 1 TP T 1 *7 

Khi b hi 1 Zi 


F547 : 


D9 


CC 


FF 




CMP 




F54A: 


DO 


F8 






BNE 


TP A Ii' TPMi~\T\T O 

r Ais-hiMLUN z 


F54C : 


CO 


15 






CPY 


ft>? -Lb 


F54E : 


DO 


E8 






BNE 


TP A Ii' TPMi~\T\T 1 
r AlS-hiMUlN 3 


F5 5 : 


A5 


31 






LDA 


MODE 


F5 52 : 


AO 


00 






LDY 


ft>? U 


F5 54 : 


C6 


34 






DEC 




F5 56 : 


20 


00 


FE 




JSR 


BL^ 


F5 59 : 


4C 


9 5 


F5 




JMP 


In A 1 J_i ± IN hi 


F5 5C : 


A5 


3D 




1 K IlNEj A 1 


LDA 




F5 5E : 


2 


8 E 


F8 




JSR 


±JN bJJb z 


F5 6 1 : 


AA 








TAX 




F5 6 2 : 


BD 





FA 




LDA 


MTvTTPMD V 

PLNEilYlK , A 


F5 6 5 : 


C5 


42 






CMP 




F5 6 7 : 


DO 


13 






BNE 


J.N hi A lUf 


F569 : 


BD 


CO 


F9 




LDA 


MJN hiMLi , A 


F56C : 


C5 


43 






CMP 




F5 6E : 


DO 


c 






BNE 


IN hi A 1 UF 


F5 7 : 


A5 












F572 : 


A4 


2* 






LDY 




F574 : 


CO 


9D 






CPY 


U 4 an 


F576 : 


FO 


88 






BEQ 




F578 : 


C5 


2E 




NREL 


CMP 


TP TDM A T 1 

h UKMA 1 


F57A: 


FO 


9F 






BEQ 


h X1NJJUF 


F5 7C : 


C6 


3D 




IN hiA 1 Uf 


DEC 




F57E: 


DO 


DC 






BNE 


1 K I vi hi A 1 


F5 8 : 


E6 


44 






INC 


FMT 


F5 8 2 : 


C6 


35 






DEC 




F5 8 4 : 


FO 


D6 






BEQ 


TTD VKTTP VP 

1 K 1 vi hi A 1 


F5 8 6 : 


A4 


34 




ERR 


LDY 


YSAV 


F5 8 8 : 


98 






ERR2 


TYA 




F589 : 


AA 








TAX 




F58A: 


20 


4A 


F9 




JSR 




F58D : 


A9 


DE 






LDA 


■H- inn 1 
ff^ JJhi 


F5 8F : 


20 


ED 


FD 




JSR 


COUT 


F5 92 : 


20 


3A 


FF 


DUO TPT 1 1 


JSR 




F5 9 5 : 


A9 


Al 




IN A 1 J_i llNJi 


LDA 


4+ £; A 1 


F597 : 


85 


33 






STA 


rKUMr 1 


F5 9 9 : 


2 


6 7 


FD 




JSR 


r 1 TP r PT T-.T'T 

Lihi 1 LiJN £1 














ZiVlKJlJlh 




AD 


nn 


02 




LDA 






C9 


AO 






™ 






FO 


13 








S PACE 


F5A6 : 


C8 








INY 




F5A7 : 


C9 


A4 






CMP 




F5A9 : 


FO 


92 






BEQ 


TP A Ii'TPMiTNT 
h AlS-hiMUlN 


F5AB : 


88 








DEY 




F5AC : 


20 


A7 


FF 




JSR 


r'TPT'Ti.TT TM 
Llhi 1 IN U1 V J 


F5AF : 


C9 


93 






CMP 




F5B1 : 


DO 


D5 




ERR4 


BNE 


ERR2 


F5B3 : 


8A 








TXA 




F5B4 : 


FO 


D2 






BEQ 




F5B6 : 


20 


78 


FE 




JSR 


Al PCLP 


F5B9 : 


A9 


03 




SPACE 


LDA 


ii £• n 

ft 9 -5 


F5BB: 


8 5 


3D 






STA 




F5BD: 


20 


34 


F6 


IN A 1 MINI 


JSR 


Llhj 1 IN b f 


F5C0 : 


OA 






NXTM 


ASL 




F5C1 : 


E9 


BE 






SBC 


■H- 4TUTP 

TT^hih. 


F5C3 : 


C9 


C2 






CMP 




F5C5 : 


90 


CI 






BCC 


ERR2 


F5C7 : 


OA 








ASL 


A 


F5C8 : 


OA 








ASL 


A 


F5C9 : 


A2 


04 






LDX 


#$4 


F5CB : 


OA 






NXTM2 


ASL 


A 



ERROR IF >1-BYTE BRANCH 
MOVE INST TO (PC) 



RESTORE CURSOR 
TYPE FORMATTED LINE 
UPDATE PC 



GET NEXT LINE 

GO TO DELIM HANDLER 

RESTORE Y- INDEX 

READ PARAM 

SAVE Y- INDEX 

INIT DELIMITER INDEX 

CHECK NEXT DELIM 

ERR IF UNRECOGNIZED DELIM 

COMPARE WITH DELIM TABLE 

NO MATCH 

MATCH, IS IT CR? 

NO, HANDLE IT IN MONITOR 



HANDLE CR OUTSIDE MONITOR 

GET TRIAL OPCODE 

GET FMT+LENGTH FOR OPCODE 

GET LOWER MNEMONIC BYTE 
MATCH? 

NO, TRY NEXT OPCODE. 
GET UPPER MNEMONIC BYTE 
MATCH? 

NO, TRY NEXT OPCODE 

GET TRIAL FORMAT 
TRIAL FORMAT RELATIVE? 
YES . 

SAME FORMAT? 
YES . 

NO, TRY NEXT OPCODE 

NO MORE, TRY WITH LEN=2 

WAS L=2 ALREADY? 

NO. 

YES, UNRECOGNIZED INST. 



PRINT A UNDER LAST READ 
CHAR TO INDICATE ERROR 
POSITION. 



INITIALIZE PROMPT 

GET LINE. 

INIT SCREEN STUFF 

GET CHAR 

ASCII BLANK? 

YES 

ASCII ' $' IN COL 1? 

YES, SIMULATE MONITOR 

NO, BACKUP A CHAR 

GET A NUMBER 

' : ' TERMINATOR? 

NO , ERR . 

NO ADR PRECEDING COLON. 
MOVE ADR TO PCL, PCH. 
COUNT OF CHARS IN MNEMONIC 

GET FIRST MNEM CHAR. 

SUBTRACT OFFSET 
LEGAL CHAR? 
NO. 

COMPRESS-LEFT JUSTIFY 



DO 5 TRIPLE WORD SHIFTS 



92 



F5CC 


2 6 


42 






ROL 


A4L 


F5CE 


2 6 


43 






ROL 


A4H 


F5D0 


CA 








DEX 




F5D1 


1 


F8 






BPL 


ATVTM 9 

in a i mz 


F5D3 


C6 


3D 










F5D5 


FO 


F4 






RFO 


TJYTM 9 
IN A 1 1*1 Z 


F5D7 


1 


E4 






BPL 


IN A 1 MlN 


F5D9 




5 




r UKM ± 








20 






r UKl'J Z 


TqR 


r'TTT'KTC D 


F5DF 


84 


34 










F5E0 


DD 


B4 


F9 




CMP 


r"U A D1 V 
UriAKX , A 


F5E3 


DO 


1 3 






BNE 


r UKM J 


F5E5 


2 


3 4 


F6 




JSR 


LiJi 1 IN t> f 


F5E8 






F9 




™ 


UriAKz , A 


F5EB 


FO 










r ukm:d 


F5ED 


BD 


BA 


F9 




LDA 


r"U A D 9 V 


F5F0 


FO 


7 






BEQ 






C9 








™ 


4+ tb a /i 


F5F4 


FO 


03 








r Uiu'14 


F5F6 


A4 


34 






LDY 


YSAV 


F5F8 


18 






r UKW j 


CLC 




F5F9 


88 






r UKW4 


DEY 




F5FA 


2 6 


44 




r UKM b 


ROL 




F5FC 


EO 


3 






CPX 


4+ * O 
ffpJ 


F5FE 


DO 


OD 






BNE 


r UKM / 


F6 


2 


A7 


FF 




JSR 


LjiL i IN UM 


F6 3 


A5 


3 F 






LDA 




F6 5 


FO 


1 






BEQ 


r UKM b 


F6 7 


E8 








I NX 






86 


3 5 




r UKM b 






F60A 


A2 


03 






LDX 


+1 4; 9 


F60C 


88 








DEY 




F60D 


86 


3D 




r UK1Y1 / 


STX 


A1H 
















F610 


10 








BPL 


r UKMZ 


F612 


A5 


44 






LDA 


FMT 


F614 


OA 








ASL 


A 


F6 1 5 


OA 












F616 


05 








ORA 




F6 1 8 


C9 


2 








4+ * o n 


F61A 


BO 


06 








r UKMo 


F6 1C 


A6 


3 5 






LDX 




F61E 


FO 


02 






BEQ 


r UKM o 


F6 2 


9 


8 






ORA 


ff >?o U 




85 






r UKM b 






F624 




34 






STY 


vqav 


F626 


B9 


00 


02 




LDA 


IN Y 


F629 


C9 


BB 






CMP 


#$BB 


F62B 


FO 


04 






BEQ 




F6 2D 


C9 


8D 






CMP 


#$8D 


F62F 


DO 


80 






BNE 


ERR4 


F631 


4C 


5C 


F5 


FORM 9 


JMP 


TRYNEXT 


F634 


B9 


00 


02 


GETNSP 


LDA 


IN, Y 


F637 


C8 








I NY 




F638 


C9 


AO 






CMP 


#$A0 


F63A 


FO 


F8 






BEQ 


GETNSP 


F63C 


60 








RTS 
ORG 


$F666 


F666 


4C 


92 


F5 


MINIASM 


JMP 


RESETZ 



DONE WITH 3 CHARS? 

YES, BUT DO 1 MORE SHIFT 

NO 

5 CHARS IN ADDR MODE 
GET FIRST CHAR OF ADDR 

FIRST CHAR MATCH PATTERN? 
NO 

YES, GET SECOND CHAR 
MATCHES SECOND HALF? 
YES . 

NO, IS SECOND HALF ZERO? 
YES . 

NO, SECOND HALF OPTIONAL? 
YES . 

CLEAR BIT-NO MATCH 

BACK UP 1 CHAR 

FORM FORMAT BYTE 

TIME TO CHECK FOR ADDR. 

NO 

YES 

HIGH-ORDER BYTE ZERO 
NO, INCR FOR 2 -BYTE 
STORE LENGTH 
RELOAD FORMAT INDEX 
BACKUP A CHAR 
SAVE INDEX 

DONE WITH FORMAT CHECK? 
NO. 

YES, PUT LENGTH 
IN LOW BITS 



ADD "$" IF NONZERO LENGTH 
AND DON'T ALREADY HAVE IT 



GET NEXT NONBLANK 

' ' START OF COMMENT? 

YES 

CARRIAGE RETURN? 
NO , ERR . 



GET NEXT NON BLANK CHAR 



93 



*********************** 

* * 

* APPLE-II FLOATING * 

* POINT ROUTINES * 

* * 

* COPYRIGHT 1977 BY * 

* APPLE COMPUTER INC. * 

* * 

* ALL RIGHTS RESERVED * 

* * 

* S. WOZNIAK * 

* * 
*********************** 

TITLE "FLOATING POINT ROUTINES" 











SIGN 


EPZ 


$F3 












X2 


EPZ 


$F4 












M2 


EPZ 


$F5 












XI 


EPZ 


$F8 












Ml 


EPZ 


$F9 












E 


EPZ 


$FC 












OVLOC 


EQU 
ORG 


$3F5 
$F425 




F425 


18 






ADD 


CLC 




CLEAR CARRY 


F426 


A2 


02 






LDX 


#$2 


INDEX FOR 3 -BYTE ADD. 


F428 


B5 


F9 




ADD1 


LDA 


M1,X 




F42A 


75 


F5 






ADC 


M2,X 


ADD A BYTE OF MANT2 TO MANT1 


F42C 


95 


F9 






STA 


M1,X 




F42E 


CA 








DEX 




INDEX TO NEXT MORE SIGNIF. BYTE. 


F42F 


10 


F7 






BPL 


ADD1 


LOOP UNTIL DONE. 


F431 


60 








RTS 




RETURN 


F432 


06 


F3 




MD1 


ASL 


SIGN 


CLEAR LSB OF SIGN. 


F434 


20 


37 


F4 




JSR 


ABSWAP 


ABS VAL OF Ml, THEN SWAP WITH M2 


F437 


24 


F9 




ABSWAP 


BIT 


Ml 


MANT1 NEGATIVE? 


F439 


10 


05 






BPL 


ABSWAP1 


NO, SWAP WITH MANT2 AND RETURN. 


F43B 


20 


A4 


F4 




JSR 


FCOMPL 


YES, COMPLEMENT IT. 


F43E 


E6 


F3 






INC 


SIGN 


INCR SIGN, COMPLEMENTING LSB. 


F440 


38 






ABSWAP1 


SEC 




SET CARRY FOR RETURN TO MUL/DIV. 


F441 


A2 


04 




SWAP 


LDX 


#$4 


INDEX FOR 4 BYTE SWAP. 


F443 


94 


FB 




SWAP1 


STY 


E-l ,X 




F445 


B5 


F7 






LDA 


Xl-1 ,x 


SWAP A BYTE OF EXP/MANT1 WITH 


F447 


B4 


F3 






LDY 


X2-1 ,X 


EXP/MANT2 AND LEAVE A COPY OF 


F449 


94 


F7 






STY 


Xl-1 ,X 


MANT1 IN E (3 BYTES). E+3 USED 


F44B 


95 


F3 






STA 


X2-1 ,X 




F44D 


CA 








DEX 




ADVANCE INDEX TO NEXT BYTE 


F44E 


DO 


F3 






BNE 


SWAP1 


LOOP UNTIL DONE. 


F450 


60 








RTS 




RETURN 


F451 


A9 


8E 




FLOAT 


LDA 


#$8E 


INIT EXP1 TO 14, 


F453 


85 


F8 






STA 


XI 


THEN NORMALIZE TO FLOAT. 


F455 


A5 


F9 




NORM1 


LDA 


Ml 


HIGH-ORDER MANT1 BYTE. 


F457 


C9 


CO 






CMP 


#$C0 


UPPER TWO BITS UNEQUAL? 


F459 


30 


OC 






BMI 


RTS1 


YES, RETURN WITH MANT1 NORMALIZED 


F45B 


C6 


F8 






DEC 


XI 


DECREMENT EXP1 . 


F45D 


06 


FB 






ASL 


Ml + 2 




F45F 


26 


FA 






ROL 


Ml + 1 


SHIFT MANT1 (3 BYTES) LEFT. 


F461 


26 


F9 






ROL 


Ml 




F463 


A5 


F8 




NORM 


LDA 


XI 


EXP1 ZERO? 


F465 


DO 


EE 






BNE 


NORM1 


NO, CONTINUE NORMALIZING. 


F467 


60 






RTS1 


RTS 




RETURN . 


F468 


20 


A4 


F4 


FSUB 


JSR 


FCOMPL 


CMPL MANT1, CLEARS CARRY UNLESS 


F46B 


20 


7B 


F4 


SWPALGN 


JSR 


ALGNSWP 


RIGHT SHIFT MANT1 OR SWAP WITH 


F46E 


A5 


F4 




FADD 


LDA 


X2 




F470 


C5 


F8 






CMP 


XI 


COMPARE EXP1 WITH EXP2 . 


F472 


DO 


F7 






BNE 


SWPALGN 


IF #,SWAP ADDENDS OR ALIGN MANTS . 


F474 


20 


25 


F4 




JSR 


ADD 


ADD ALIGNED MANTISSAS. 


F477 


50 


EA 




ADDEND 


BVC 


NORM 


NO OVERFLOW, NORMALIZE RESULT. 


F479 


70 


05 






BVS 


RTLOG 


OV: SHIFT Ml RIGHT, CARRY INTO SIGN 



94 



F47B 


90 


C4 




ALGNSWP 


BCC 


SWAP 


SWAP IF CARRY CLEAR, 










* 


ELSE SHIFT RIGHT ARITH. 


F47D 


A5 


F9 




RTAR 


LDA 


Ml 


SIGN OF MANT1 INTO CARRY FOR 


F47F 


OA 








ASL 




RIGHT ARITH SHIFT. 


F480 


E6 


F8 




RTLOG 


INC 


XI 


INCR XI TO ADJUST FOR RIGHT SHIFT 


F482 


FO 


75 






BEQ 


OVFL 


EXP1 OUT OF RANGE. 


F484 


A2 


FA 




RTLOG1 


LDX 


#$FA 


INDEX FOR 6: BYTE RIGHT SHIFT. 


F486 


76 


FF 




ROR1 


ROR 


E+3 ,X 




F488 


E8 








INX 




NEXT BYTE OF SHIFT. 


F489 


DO 


FB 






BNE 


ROR1 


LOOP UNTIL DONE. 


F48B 


60 








RTS 




RETURN . 


F48C 


20 


32 


F4 


FMUL 


JSR 


MD1 


ABS VAL OF MANT1, MANT2 


F48F 


65 


F8 






ADC 


XI 


ADD EXP1 TO EXP2 FOR PRODUCT EXP 


F491 


20 


E2 


F4 




JSR 


MD2 


CHECK PROD. EXP AND PREP. FOR MUL 


F494 


18 








CLC 




CLEAR CARRY FOR FIRST BIT. 


F495 


20 


84 


F4 


MUL1 


JSR 


RTLOG1 


Ml AND E RIGHT (PROD AND MPLIER ) 


F498 


90 


03 






BCC 


MUL2 


IF CARRY CLEAR, SKIP PARTIAL PROD 


F49A 


20 


25 


F4 




JSR 


ADD 


ADD MULTIPLICAND TO PRODUCT. 


F49D 


88 






MUL2 


DEY 




NEXT MUL ITERATION. 


F49E 


10 


F5 






BPL 


MUL1 


LOOP UNTIL DONE. 


F4A0 


46 


F3 




MDEND 


LSR 


SIGN 


TEST SIGN LSB. 


F4A2 


90 


BF 




NORMX 


BCC 


NORM 


IF EVEN, NORMALIZE PROD, ELSE COMP 


F4A4 


38 






FCOMPL 


SEC 




SET CARRY FOR SUBTRACT. 


F4A5 


A2 


03 






LDX 


#$3 


INDEX FOR 3 BYTE SUBTRACT. 


F4A7 


A9 


00 




COMPL1 


LDA 


#$0 


CLEAR A. 


F4A9 


F5 


F8 






SBC 


XI, X 


SUBTRACT BYTE OF EXP1. 


F4AB 


95 


F8 






STA 


XI, X 


RESTORE IT. 


F4AD 


CA 








DEX 




NEXT MORE SIGNIFICANT BYTE. 


F4AE 


DO 


F7 






BNE 


COMPL1 


LOOP UNTIL DONE. 


F4B0 


FO 


C5 






BEQ 


ADDEND 


NORMALIZE (OR SHIFT RT IF OVFL). 


F4B2 


20 


32 


F4 


FDIV 


JSR 


MD1 


TAKE ABS VAL OF MANT1 , MANT2 . 


F4B5 


E5 


F8 






SBC 


XI 


SUBTRACT EX PI FROM EXP 2 . 


F4B7 


20 


E2 


F4 




JSR 


MD2 


SAVE AS QUOTIENT EXP. 


F4BA 


38 






DIV1 


SEC 




SET CARRY FOR SUBTRACT. 


F4BB 


A2 


02 






LDX 


#$2 


INDEX FOR 3 - BYTE SUBTRACTION. 


F4BD 


B5 


F5 




DIV2 


LDA 


M2,X 




F4BF 


F5 


FC 






SBC 


E , X 


SUBTRACT A BYTE OF E FROM MANT2 . 


F4C1 


48 








PHA 




SAVE ON STACK. 


F4C2 


CA 








DEX 




NEXT MORE SIGNIFICANT BYTE. 


F4C3 


10 


F8 






BPL 


DIV2 


LOOP UNTIL DONE. 


F4C5 


A2 


FD 






LDX 


#$FD 


INDEX FOR 3 -BYTE CONDITIONAL MOVE 


F4C7 


68 






DIV3 


PLA 




PULL BYTE OF DIFFERENCE OFF STACK 


F4C8 


90 


02 






BCC 


DIV4 


IF M2<E THEN DON'T RESTORE M2 . 


F4CA 


95 


F8 






STA 


M2+3 ,X 




F4CC 


E8 






DIV4 


INX 




NEXT LESS SIGNIFICANT BYTE. 


F4CD 


DO 


F8 






BNE 


DIV3 


LOOP UNTIL DONE. 


F4CF 


26 


FB 






ROL 


Ml + 2 




F4D1 


26 


FA 






ROL 


Ml + 1 


ROLL QUOTIENT LEFT, CARRY INTO LSB 


F4D3 


26 


F9 






ROL 


Ml 




F4D5 


06 


F7 






ASL 


M2 + 2 




F4D7 


26 


F6 






ROL 


M2 + 1 


SHIFT DIVIDEND LEFT 


F4D9 


26 


F5 






ROL 


M2 




F4DB 


BO 


1C 






BCS 


OVFL 


OVFL IS DUE TO UNNORMED DIVISOR 


F4DD 


88 








DEY 




NEXT DIVIDE ITERATION. 


F4DE 


DO 


DA 






BNE 


DIV1 


LOOP UNTIL DONE 23 ITERATIONS. 


F4E0 


FO 


BE 






BEQ 


MDEND 


NORM. QUOTIENT AND CORRECT SIGN. 


F4E2 


86 


FB 




MD2 


STX 


Ml + 2 




F4E4 


86 


FA 






STX 


Ml + 1 


CLEAR MANT1 (3 BYTES) FOR MUL/DIV. 


F4E6 


86 


F9 






STX 


Ml 




F4E8 


BO 


OD 






BCS 


OVCHK 


IF CALC. SET CARRY, CHECK FOR OVFL 


F4EA 


30 


04 






BMI 


MD3 


IF NEG THEN NO UNDERFLOW. 


F4EC 


68 








PLA 




POP ONE RETURN LEVEL. 


F4ED 


68 








PLA 






F4EE 


90 


B2 






BCC 


NORMX 


CLEAR XI AND RETURN. 


F4F0 


49 


80 




MD3 


EOR 


#$80 


COMPLEMENT SIGN BIT OF EXPONENT. 


F4F2 


85 


F8 






STA 


XI 


STORE IT. 


F4F4 


AO 


17 






LDY 


#$17 


COUNT 24 MUL/23 DIV ITERATIONS. 


F4F6 


60 








RTS 




RETURN . 


F4F7 


10 


F7 




OVCHK 


BPL 


MD3 


IF POSITIVE EXP THEN NO OVFL. 


F4F9 


4C 


F5 


03 


OVFL 


JMP 
ORG 


OVLOC 
$F63D 




F63D 


20 


7D 


F4 


FIX1 


JSR 


RTAR 




F640 


A5 


F8 




FIX 


LDA 


XI 




F642 


10 


13 






BPL 


UNDFL 




F644 


C9 


8E 






CMP 


#$8E 




F646 


DO 


F5 






BNE 


FIX1 




F648 


24 


F9 






BIT 


Ml 




F64A 


10 


OA 






BPL 


FIXRTS 




F64C 


A5 


FB 






LDA 


Ml + 2 




F64E 


FO 


06 






BEQ 


FIXRTS 




F650 


E6 


FA 






INC 


Ml + 1 




F652 


DO 


02 






BNE 


FIXRTS 




F654 


E6 


F9 






INC 


Ml 




F656 


60 






FIXRTS 


RTS 






F657 


A9 


00 




UNDFL 


LDA 


#$0 




F659 


85 


F9 






STA 


Ml 




F65B 


85 


FA 






STA 


Ml + 1 




F65D 


60 








RTS 
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* APPLE- II PSEUDO * 

* MACHINE INTERPRETER * 

* * 

* COPYRIGHT 1977 * 

* APPLE COMPUTER INC * 

* * 

* ALL RIGHTS RESERVED * 

* S. WOZNIAK * 

* * 
*********************** 
TITLE "SWEET16 INTERPRETER" 











ROL 


EQU 


$0 














ROH 


EQU 


$1 














R14H 


EQU 


$1D 














R15L 


EQU 


$1E 














R15H 


EQU 


$1F 














SW16PAG 


EQU 


$F7 














SAVE 


EQU 


$FF4A 














RESTORE 


EQU 
ORG 


$FF3F 
$F689 






F689 


20 


4A 


FF 


SW16 


JSR 


SAVE 




PRESERVE 6502 REG CONTENTS 


F68C 


68 








PLA 








F68D 


85 


IE 






STA 


R15L 




INIT SWEET16 PC 


F68F 


68 








PLA 






FROM RETURN 


F690 


85 


IF 






STA 


R15H 




ADDRESS 


F692 


20 


98 


F6 


SW16B 


JSR 


SW16C 




INTERPRET AND EXECUTE 


F695 


4C 


92 


F6 




JMP 


SW16B 




ONE SWEET16 INSTR. 


F698 


E6 


IE 




SW16C 


INC 


R15L 






F69A 


DO 


02 






BNE 


SW16D 




INCR SWEET16 PC FOR FETCH 


F69C 


E6 


IF 






INC 


R15H 






F69E 


A9 


F7 




SW16D 


LDA 


#SW16PAG 




F6A0 


48 








PHA 






PUSH ON STACK FOR RTS 


F6A1 


AO 


00 






LDY 


#$0 






F6A3 


Bl 


IE 






LDA 


(R15L 


, Y 


FETCH INSTR 


F6A5 


29 


OF 






AND 


#$F 




MASK REG SPECIFICATION 


F6A7 


OA 








ASL 


A 




DOUBLE FOR TWO BYTE REGISTERS 


F6A8 


AA 








TAX 






TO X REG FOR INDEXING 


F6A9 


4A 








LSR 


A 






F6AA 


51 


IE 






EOR 


(R15L 


,Y 


NOW HAVE OPCODE 


F6AC 


F0 


OB 






BEQ 


TOBR 




IF ZERO THEN NON-REG OP 


F6AE 


86 


ID 






STX 


R14H 




INDICATE' PRIOR RESULT REG' 


F6B0 


4A 








LSR 


A 






F6B1 


4A 








LSR 


A 




OPCODE*2 TO LSB'S 


F6B2 


4A 








LSR 


A 






F6B3 


A8 








TAY 






TO Y REG FOR INDEXING 


F6B4 


B9 


El 


F6 




LDA 


OPTBL- 


2 , Y 


LOW ORDER ADR BYTE 


F6B7 


48 








PHA 






ONTO STACK 


F6B8 


60 








RTS 






GOTO REG-OP ROUTINE 


F6B9 


E6 


IE 




TOBR 


INC 


R15L 






F6BB 


DO 


02 






BNE 


TOBR2 




INCR PC 


F6BD 


E6 


IF 






INC 


R15H 






F6BF 


BD 


E4 


F6 


TOBR2 


LDA 


BRTBL 


X 


LOW ORDER ADR BYTE 


F6C2 


48 








PHA 






ONTO STACK FOR NON-REG OP 


F6C3 


A5 


ID 






LDA 


R14H 




'PRIOR RESULT REG' INDEX 


F6C5 


4A 








LSR 


A 




PREPARE CARRY FOR BC , BNC . 


F6C6 


60 








RTS 






GOTO NON-REG OP ROUTINE 


F6C7 


68 






RTNZ 


PLA 






POP RETURN ADDRESS 


F6C8 


68 








PLA 








F6C9 


20 


3F 


FF 




JSR 


RESTORE 


RESTORE 6502 REG CONTENTS 


F6CC 


6C 


IE 


00 




JMP 


(R15L 




RETURN TO 6502 CODE VIA PC 


F6CF 


Bl 


IE 




SETZ 


LDA 


(R15L 


, Y 


HIGH-ORDER BYTE OF CONSTANT 



96 



F6D1 


95 


01 






STA 


R0H,X 




F6D3 


88 








DEY 






F6D4 


Bl 


IE 






LDA 


(R15L) ,Y 


LOW -ORDER BYTE OF CONSTANT 


F6D6 


95 


00 






STA 


R0L,X 




F6D8 


98 








TYA 




Y-REG CONTAINS 1 


F6D9 


38 








SEC 






F6DA 


65 


IE 






ADC 


R15L 


ADD 2 TO PC 


F6DC 


85 


IE 






STA 


R15L 




F6DE 


90 


02 






BCC 


SET2 




F6E0 


E6 


IF 






INC 


R15H 




F6E2 


60 






SET2 


RTS 






F6E3 


02 






OPTBL 


DFB 


SET-1 


IX 


F6E4 


F9 






BRTBL 


DFB 


RTN-1 





F6E5 


04 








DFB 


LD-1 


2X 


F6E6 


9D 








DFB 


BR-1 


1 


F6E7 


0D 








DFB 


ST-1 


3X 


F6E8 


9E 








DFB 


BNC-1 


2 


F6E9 


25 








DFB 


LDAT - 1 


4X 


F6EA 


AF 








DFB 


BC-1 


3 


F6EB 


16 








DFB 


STAT-1 


5X 


F6EC 


B2 








DFB 


BP-1 


4 


F6ED 


47 








DFB 


LDDAT -1 


6X 


F6EE 


B9 








DFB 


BM-1 


5 


F6EF 


51 








DFB 


STDAT- 1 


7X 


F6F0 


CO 








DFB 


BZ-1 


6 


F6F1 


2F 








DFB 


POP-1 


8X 


F6F2 


C9 








DFB 


BNZ-1 


7 


F6F3 


5B 








DFB 


STPAT-1 


9X 


F6F4 


D2 








DFB 


BM1-1 


8 


F6F5 


85 








DFB 


ADD- 1 


AX 


F6F6 


DD 








DFB 


BNM1-1 


9 


F6F7 


6E 








DFB 


SDB-1 


BX 


F6F8 


05 








DFB 


BK-1 


A 


F6F9 


33 








DFB 


POPD-1 


CX 


F6FA 


E8 








DFB 


RS-1 


B 


F6FB 


70 








DFB 


CPR-1 


DX 


F6FC 


93 








DFB 


BS-1 


C 


F6FD 


IE 








DFB 


INR-1 


EX 


F6FE 


E7 








DFB 


NUL-1 


D 


F6FF 


65 








DFB 


DCR-1 


FX 


F700 


E7 








DFB 


NUL-1 


E 


F701 


E7 








DFB 


NUL-1 


UNUSED 


F702 


E7 








DFB 


NUL-1 


F 


F703 


10 


CA 




SET 


BPL 


SETZ 


ALWAYS TAKEN 


F705 


B5 


00 




LD 
BK 


LDA 
EQU 


R0L,X 
*_! 




F707 


85 


00 






STA 


ROL 




F709 


B5 


01 






LDA 


R0H,X 


MOVE RX TO RO 


F70B 


85 


01 






STA 


ROH 




F70D 


60 








RTS 






F70E 


A5 


00 




ST 


LDA 


ROL 




F710 


95 


00 






STA 


R0L,X 


MOVE RO TO RX 


F712 


A5 


01 






LDA 


ROH 




F714 


95 


01 






STA 


R0H,X 




F716 


60 








RTS 






F717 


A5 


00 




STAT 


LDA 


ROL 




F719 


81 


00 




STAT 2 


STA 


(R0L,X) 


STORE BYTE INDIRECT 


F71B 


AO 


00 






LDY 


#$0 




F71D 


84 


ID 




STAT 3 


STY 


R14H 


INDICATE RO IS RESULT NEG 


F71F 


F6 


00 




INR 


INC 


R0L,X 




F721 


DO 


02 






BNE 


INR2 


INCR RX 


F723 


F6 


01 






INC 


R0H,X 




F725 


60 






INR2 


RTS 






F726 


Al 


00 




LDAT 


LDA 


(R0L,X) 


LOAD INDIRECT ( RX ) 


F728 


85 


00 






STA 


ROL 


TO RO 


F7 2A 


AO 


00 






LDY 


#$0 




F72C 


84 


01 






STY 


ROH 


ZERO HIGH-ORDER RO BYTE 


F72E 


FO 


ED 






BEQ 


STAT 3 


ALWAYS TAKEN 


F730 


AO 


00 




POP 


LDY 


#$0 


HIGH ORDER BYTE = 


F732 


FO 


06 






BEQ 


POP2 


ALWAYS TAKEN 


F734 


20 


66 


F7 


POPD 


JSR 


DCR 


DECR RX 


F737 


Al 


00 






LDA 


(R0L,X) 


POP HIGH ORDER BYTE @RX 


F739 


A8 








TAY 




SAVE IN Y-REG 


F73A 


20 


66 


F7 


POP2 


JSR 


DCR 


DECR RX 


F73D 


Al 


00 






LDA 


(R0L,X) 


LOW -ORDER BYTE 


F73F 


85 


00 






STA 


ROL 


TO RO 


F741 


84 


01 






STY 


ROH 




F743 


AO 


00 




POP3 


LDY 


#$0 


INDICATE RO AS LAST RESULT 


F745 


84 


ID 






STY 


R14H 




F747 


60 








RTS 






F748 


20 


26 


F7 


LDDAT 


JSR 


LDAT 


LOW-ORDER BYTE TO RO , INCR 


F74B 


Al 


00 






LDA 


(R0L,X) 


HIGH-ORDER BYTE TO RO 


F74D 


85 


01 






STA 


ROH 




F74F 


4C 


IF 


F7 




JMP 


INR 


INCR RX 


F752 


20 


17 


F7 


STDAT 


JSR 


STAT 


STORE INDIRECT LOW-ORDER 



97 



F755 


A5 


01 






LDA 


ROH 


F757 


81 


00 






STA 


(R0L,X 


F759 


4C 


IF 


F7 




JMP 


INR 


F75C 


20 


66 


F7 


STPAT 


JSR 


DCR 


F75F 


A5 


00 






LDA 


ROL 


F761 


81 


00 






STA 


(R0L,X 


F763 


4C 


43 


F7 




JMP 


POP3 


F766 


B5 


00 




DCR 


LDA 


R0L,X 


F768 


DO 


02 






BNE 


DCR2 


F7 6A 


D6 


01 






DEC 


R0H,X 


F76C 


D6 


00 




DCR2 


DEC 


R0L,X 


F76E 


60 








RTS 




F76F 


AO 


00 




SUB 


LDY 


#$0 


F771 


38 






CPR 


SEC 




F772 


A5 


00 






LDA 


ROL 


F774 


F5 


00 






SBC 


R0L,X 


F776 


99 


00 


00 




STA 


ROL, Y 


F779 


A5 


01 






LDA 


ROH 


F77B 


F5 


01 






SBC 


R0H,X 


F77D 


99 


01 


00 


SUB 2 


STA 


ROH, Y 


F780 


98 








TYA 




F781 


69 


00 






ADC 


#$0 


F783 


85 


ID 






STA 


R14H 


F785 


60 








RTS 




F786 


A5 


00 




ADD 


LDA 


ROL 


F788 


75 


00 






ADC 


R0L,X 


F7 8A 


85 


00 






STA 


ROL 


F78C 


A5 


01 






LDA 


ROH 


F78E 


75 


01 






ADC 


R0H,X 


F790 


AO 


00 






LDY 


#$0 


F792 


FO 


E9 






BEQ 


SUB2 


F794 


A5 


IE 




BS 


LDA 


R15L 


F796 


20 


19 


F7 




JSR 


STAT 2 


F799 


A5 


IF 






LDA 


R15H 


F79B 


20 


19 


F7 




JSR 


STAT 2 


F79E 


18 






BR 


CLC 




F79F 


BO 


OE 




BNC 


BCS 


BNC 2 


F7A1 


Bl 


IE 




BR1 


LDA 


(R15L) 


F7A3 


10 


01 






BPL 


BR2 


F7A5 


88 








DEY 




F7A6 


65 


IE 




BR 2 


ADC 


R15L 


F7A8 


85 


IE 






STA 


R15L 


F7AA 


98 








TYA 




F7AB 


65 


IF 






ADC 


R15H 


F7AD 


85 


IF 






STA 


R15H 


F7AF 


60 






BNC 2 


RTS 




F7B0 


BO 


EC 




BC 


BCS 


BR 


F7B2 


60 








RTS 




F7B3 


OA 






BP 


ASL 


A 


F7B4 


AA 








TAX 




F7B5 


B5 


01 






LDA 


R0H,X 


F7B7 


10 


E8 






BPL 


BR1 


F7B9 


60 








RTS 




F7BA 


OA 






BM 


ASL 


A 


F7BB 


AA 








TAX 




F7BC 


B5 


01 






LDA 


R0H,X 


F7BE 


30 


El 






BMI 


BR1 


F7C0 


60 








RTS 




F7C1 


OA 






BZ 


ASL 


A 


F7C2 


AA 








TAX 




F7C3 


B5 


00 






LDA 


R0L,X 


F7C5 


15 


01 






ORA 


R0H,X 


F7C7 


FO 


D8 






BEQ 


BR1 


F7C9 


60 








RTS 




F7CA 


OA 






BNZ 


ASL 


A 


F7CB 


AA 








TAX 




F7CC 


B5 


00 






LDA 


R0L,X 


F7CE 


15 


01 






ORA 


R0H,X 


F7D0 


DO 


CF 






BNE 


BR1 


F7D2 


60 








RTS 




F7D3 


OA 






BM1 


ASL 


A 


F7D4 


AA 








TAX 




F7D5 


B5 


00 






LDA 


R0L,X 


F7D7 


35 


01 






AND 


R0H,X 


F7D9 


49 


FF 






EOR 


#$FF 


F7DB 


FO 


C4 






BEQ 


BR1 


F7DD 


60 








RTS 




F7DE 


OA 






BNM1 


ASL 


A 


F7DF 


AA 








TAX 




F7E0 


B5 


00 






LDA 


R0L,X 


F7E2 


35 


01 






AND 


R0H,X 


F7E4 


49 


FF 






EOR 


#$FF 


F7E6 


DO 


B9 






BNE 


BR1 


F7E8 


60 






NUL 


RTS 




F7E9 


A2 


18 




RS 


LDX 


#$18 



BYTE AND INCR RX . THEN 
STORE HIGH-ORDER BYTE. 
INCR RX AND RETURN 
DECR RX 

STORE RO LOW BYTE @RX 
INDICATE RO AS LAST RSLT REG 

DECR RX 



RESULT TO RO 

NOTE Y-REG = 13*2 FOR CPR 



RO-RX TO RY 



LAST RESULT REG* 2 
CARRY TO LSB 



RO+RX TO RO 



RO FOR RESULT 

FINISH ADD 

NOTE X-REG IS 12*2 ! 

PUSH LOW PC BYTE VIA R12 

PUSH HIGH-ORDER PC BYTE 

NO CARRY TEST 
DISPLACEMENT BYTE 



ADD TO PC 



DOUBLE RESULT-REG INDEX 
TO X REG FOR INDEXING 
TEST FOR PLUS 
BRANCH IF SO 

DOUBLE RESULT-REG INDEX 

TEST FOR MINUS 



DOUBLE RESULT-REG INDEX 

TEST FOR ZERO 
(BOTH BYTES) 
BRANCH IF SO 

DOUBLE RESULT-REG INDEX 

TEST FOR NON-ZERO 
(BOTH BYTES) 
BRANCH IF SO 

DOUBLE RESULT-REG INDEX 

CHECK BOTH BYTES 
FOR $FF ( MINUS 1) 

BRANCH IF SO 

DOUBLE RESULT-REG INDEX 



CHECK BOTH BYTES FOR NO $FF 

BRANCH IF NOT MINUS 1 

12*2 FOR R12 AS STACK POINTER 



98 



F7EB 


20 


66 


F7 


JSR 


DCR 




DECR STACK POINTER 


F7EE 


Al 


00 




LDA 


( ROL 


X) 


POP HIGH RETURN ADDRESS 


F7F0 


85 


IF 




STA 


R15H 






F7F2 


20 


66 


F7 


JSR 


DCR 




SAME FOR LOW-ORDER BYTE 


F7F5 


Al 


00 




LDA 


( ROL 


X) 




F7F7 


85 


IE 




STA 


R15L 






F7F9 


60 






RTS 








F7FA 


4C 


C7 


F6 RTN 


JMP 


RTNZ 
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6502 MICROPROCESSOR INSTRUCTIONS 



AOC Add Memory to Accumulator with 
Carry 

AND "AND" Memory with Accumulator 

ASL Shift Left One Bit (Memory or 

Accumulator) 

BCC Branch on Carry Clear 

BCS Branch on Carry Set 

BED Branch on Result Zero 

BIT Test Bits in Memory with 

Accumulator 

BMI Branch on Result Minus 

ONE Branch on Result not Zero 

BPL Branch on Result Plus 

BRK Force Break 

BVC Branch on Overflow Clear 

BVS Branch on Overflow Set 

CLC Clear Carry Flag 

CLD Clear Decimal Mode 

CLI Clear Interrupt Disable Bit 

CLV Clear Overflow Flag 

CMP Compare Memory and Accumulator 

CPX Compare Memory and Index X 

CPY Compare Memory and Index 'I 

DEC Decrement Memory by One 

DEX Decrement index X by One 

DEY Decrement Index Y by One 

FOR "Exclusive-Or" Memory with 

Accumulator 

INC Increment Memory by One 

INX Increment Index X by One 

INY Increment Index'l by One 

JMP Jump to New Location 

JSA Jump to New Location Saving 

Return Address 



LDA Load Accumulator with Memory 
LDX Load Index X with Memory 
LDY Load Index Y with Memory 
LSR Shutt Right one Bit (Memory or 

Accumulator) 
NOP No Operation 
ORA OR Memory with Accumulator 
PHA Push Accumulator on Stack 
PHP Push Processor Status on Stack 
PLA Pull Accumulator from Stack 
PLP Pull Processor Status from Slack 
ROL Rotate One Bit Left (Memory or 

Accumulator) 
ROR Rotate One Bit Right (Memory or 

Accumulator) 
RTI Return from Interrupt 
RTS Return from Subroutine 
SBC Subtract Memory from Accumulator 

with Borrow 
SEC Set Carry Flag 
SED Set Decimal Mode 
SEI Set Interrupt Disable Status 
STA Store Accumulator in Memory 
STX Store Index X in Memory 
STY Store Index Y in Memory 
TAX Transfer Accumulator to Index X 
TAY Transfer Accumulator to Index Y 
TSX Transfer Stack Pointer to Index X 
TXA Transfer Index X to Accumulator 
TXS Transfer Index X to Stack Pointer 
TYA Transfer Index Y to Accumulator 
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THE FOLLOWING NOTATION 
APPLIES TO THIS SUMMARY: 



A 


Accumulator 


X,Y 


Index Registers 


M 


Memory 


C 


Borrow 


P 


Processor Status Register 


S 


Stack Pointer 


/ 


Change 




No Change 


+ 


Add 




Logical AND 




Subtract 


¥ 


Logical Exclusive OR 




Transfer From Slack 


I 


Transfer To Stack 




Transfer To 




Transfer To 


V 


Logical OR 


PC 


Program Counter 


PCH 


Program Counter High 


PCL 


Program Counter low 


OPER 


Operand 


# 


Immediate Addressing Mode 



FIGURE 1. ASL-SHIFT LEFT ONE BIT OPERATION 
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FIGURE 2 ROTATE ONE BIT LEFT (MEMORY 
OR ACCUMULATOR) 
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FIGURE 3. 
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NOTE 1: BIT — TEST BITS 

Bit 6 and 7 are Iranaterred to the status register. If the 
result of A A M is zero than Z=1 , otherwise Z=0. 



PROGRAMMING MODEL 



ACCUMULATOR 



INDEX REGISTER Y 



INDEX REGISTER X 
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PCH 



PCL 



PROGRAM COUNTER 



01 



STACK POINTER 



7 
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V 


B 


D 


I 


Z 
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PROCESSOR STATUS REGISTER, "P" 



CARRY 
ZERO 

INTERRUPT DISABLE 
DECIMAL MODE 
BREAK COMMAND 
OVERFLOW 
NEGATIVE 



101 



CO 
LD 

Q 

O 
O 

z 

o 

(- 
o 

D 
GC 
I— 

CO 

z 



I* 
sr. 
1" 


! 


! 
■ 


1 
i 

i 




; 
I 
1 
I 

o 


> 




i 

> 
> 


■ 
i 
i 

-> 
-> 


r 

1 


i 
i 
i 
i 
















csi <r> 


CM OJ f*> 








, „. 


S 




S 


s 








338 


ssss 


5 




IP 


I 
i 


d 


d 


d 


> 

d 


pMIMI 
Illillll 


|11 


in 


DEC Oper 
DEC Oper.X 
DEC Oper 
OEC Oper.X 


S 


>- 

£3 


P 


1 


I 


I 


I 


I 


III! 


!!l 


If! 


iM 

mi 


I 


X) 


a 

a. 
o 


§ 

! 


? 


f 


7 


> 

t 

■CD 


1 

< 


1 

M 


>- 


t 

3 


X 

t 

1 

X 


>- 

t 

i 

>- 


.1 

3 1 


s 

{ 

si 


— 

1 

31 


1 

I 

SI 




! 

51 


I 
1 

iii 


1 

I 
1 


1 
1 

! 


| 

sJl 


X 

£ 

all 


1 

fill 



1= 


> 

> 


1 
1 

> 


■ 

> 
> 








K> 

2 

1 
1 

i 


i 

L 
1 
1 




i 
i 
i 

i 


1 
i 
















Cst 


CsJ CO 




















s 


g 


£ 




s 


s 


o 


s 


s 


III 


fiiillii 


flllllll 
IIIIIIII 


<iiii 


1 


1 


I 


11 

II 


1 

I 


I 

i 


! 


1 


1 

I 




aim* 

iiiiiiii 


iii 


2 ** « 
Hi 




I 


! 


I! 


I 


i 


I 


1 


I 


i 


< 

t 

V 


< 
t 

z 

< 


i 


g 

! 


g 

! 


g 

! 


t 

* t 


i 

i 


<? 

I 


2 
g 

1 


'i 


g 

i 




Jl 


J] 


si 

ill 


i 

r 

si 


1 


i 

! 

g 

ll 


I 


i 

ii 


I 

1 

1 

ii 


i 

i 

t\ 




i 
! 

ii 



11 

i 



102 



1 . 

f- 

is 

i 


! 


| 


> 




! 

1 

: 


1 

1 

1 

1 

> 
> 


i 
i 


i 

> 
■> 
> 


i 

p 

■> 

> 




— Cs| (N* f*> <-> 














»- CM CSJ <*J 








s 






s 


3 




^ S K C^J 




i — 


<llll 


1 


^ x. >\ * " 

lillllll 


1 


! 


<: 
_» 

O. 


a. 




ilili 


I* 


2 K x 

Iffii 
lull 


I 


lili 


I 


I 


"O 

o> 

Q. 

E 


i= 

GL 

£ 


Ml 


fflij 

mil 




— 

I 

-J , 


! 


> 
< 




Ck. 




a. 


! 
I 


f 

1 


1 : 

i 


s 1 

ill 


J 


1 

IS 

m 


l 

Is 

III 


1 

Jl 




I 

II 
Si J 


si 

.ii 


J 

Hi 



■ 

v- 


> 


1 

> 
> 


"i 

i 
i 

> 
> 


> 
> 




i 
i 


! 
i 

> 
> 


i 

: 

i 

> 
> 


b 
1 
1 
1 

> 


*I 










« to 






hicsiftirtrt 


Csl <M Cu CO CO 


£*! 








s 




. _ 


— . 

S<£<££<£ 






IP 


«. x J- «. 5 

2SS22S2S 


INC Oper 
INC Oper.X 
INC Oper ; 
INC Oper.X ! 


1 


1 


il 


1 


IIMMII 


pill 

S22SS 


IIIII 
53552 




jffljjfl 

< 
> 


ii 


1 


1 


I! 


I 


lil! 


III 


III! 


1 


t 


t 

X 




t 


i \ 


£££ 


< 
t 


X 

t 


>- 

f 


'1 


> 

it 

=11 


I 

.k 


I 
f 

,1 


i 

1 

,1 


! 

I 

s 

M 


11 

Si 

Mf 


it 

31! 


n 

311 


il 

51! 



103 







1 
1 
1 

[ 


i 
■ 
i 

l 

> 
> 


. 5 
-I 










s 






1 3. - 

I! 1 




US 
X 
I— 


< 
>- 
1— 


V 


I 


"5. 


I 

s 


! 


< 

t 

X 


t 

X 


< 

1 


if 


X 

Ij 

si! 


TXS 

Transfer index X to 
stack pointer 


5- 

l| 

el! 



1= 


i 
i 




y 

! 

> 


i 

i 
i 


i 
i 


i 
i 


i 
i 


i 


i 
i 

1 

! 


i 
1 

> 


L 
1 
1 

$ 


i 

> 
















w cm c> co co cm cm 


r4 cvj o 


















8 


£ 








$ 5 tz> 




3 


3 


IP 


6 




x. x. ? 5 


g 






STA Oper 
STA Oper.X 
STA Oper 
STA Oper,X 
STA Oper.Y 
STA (Oper.X) 
STA (Oper).Y 


ill 


ill 


>— 


5- 

t— 


x: 
eft 




I 


i 


llijjjfj 


s 

I 


I 


1 


Zero Page 
Zero Page.X 
Absolute 
Absolute.X 
Absolute. Y 
: (Indirect, X) 
; (mdirectl.Y 


III 
111 


ii, 
in 


I 


T3 
■4* 


TJ 
OS 

Q. 
_§ 


i 






t 

JO 
X 


o 

1 


t 


T 


t 

< 


t 

X 


t 

>- 


i 
< 


t 
< 


t 


if 


! 

I 

ii 


! 

! 

S 


ll 

n 

nil 


I 

-I 


! 
J 


I 

L 




STX 

Store index X in memory 


i 

5- 

1 

51 


1. 

W i— S 


TAY 

Transfer accumulator 
to index Y 


1 



I 

O 
CO 

tn 
I 

— CM CO 

lil LU LU LU 



I I 



X o 

a. cd 

O CO 

I I 



0- 0- X o 
O O 0. CO 

-z.-z.Otn 



ioior-C0a><CQO 
LLI LU LU LU LU LLI LU LU 



O 5 



I I I I I I I I I I 



I I I I 



™ N 

I I 

co _! 

I I 

in cd 



i i i 



o o 



I I 

co 5 

I I 

a lu 



X 


>- 






































cd" 






> 






X 


X 


> 







X 












CD 




0) 
O) 


en 















0" 


o 




ro 








Dl 


D) 
CO 


U) 




0- 


to 
0. 





















T! 




o 








CO 
0- 


CL 


C3 
0. 




o 


o 






o 






O 
CO 


o 

CO 


O 

in 




E 


T3 






e 


O 


o 






CD 






VI 
.Q 






.a 




ri 




E 












N 

1 


CD 






N 


N 






< 






< 
1 


< 

1 


< 
1 




1 


1 






N 
1 


N 
1 




1 

< 


1 

X 


D- 


> 


1 

< 




CL 


> 


< 


X 


0- 


> 


CL 


CL 


D- 


> 


CL 


O 


CL 


Q 


o 


o 








O 


a 


Q 


o 


o 


0- 


5 


o 


o 


CL 


2 




o 


_l 


—I 


z 


o 




i- 

l 


z 
1 


_i 

1 


_1 
1 


_l 

1 


z 


O 
1 


O 


Z 


Z 


O 


O 


_ 


Z 


1 


1 

CD 


1 


1 

CO 


1 


< 


CO 


o 


Q 


LU 


1 

LL 


o 


1 


1 

CM 


1 

CO 


1 


1 

in 


1 

CD 


1 

r- 


CO 


co 


te 


m 


g 


m 


m 


CO 


co 


m 


co 


o 


5 


O 


O 


O 


O 


o 


o 



Z ^ 

_= O O 

i i i 



a. _ 

o 

1 I 



o o o 
z z z 



I I I I I I I 



S £ 

N N 
I I 
0. O 

o Q 
I 



a a q a 



CO 
LU 
Q 
O 
O 



< 
DC 
LU 
Q_ 

o 

X 

LU 



CO CO 



I I I 



D) C» O) 



CQ CO 
I I 



I I 



cc < z z z < 



I I I I I I I I 

LULUOt-CMCO^-LO 

LOCOCOCDCOCOCDCO 



N N 

I I 

? p 

CO CO 

I I 



E < 

I I 

i 5 8 § ft 

z 0. < cc z 

I I I I I 



I I I 



0)0)0) 



< cc z m < z 

i i i 



N N N 

I I I 

>- S X 0. 

3 9 3 § 



E 
E 

I 

Q < 



I I I 









X 


X 


















0' 


6 






> 












Be 


» 






0" 












Q- 


CL 






J3 












ero 


ero 






bso 












N 


N 
1 






< 








Q- 


CL 


1 

O 


tr 


CL 




1 

o 


CL 


0- 


o 


o 


o 


a 


o 


O 


LU 


a 


o 


O 


z 


_> 


Z 


< 


cc 


Z 


CO 


< 


z 
1 


z 

1 


1 

CM 


1 

CO 


1 


1 

in 


1 

CD 


1 


1 

CO 


1 

CD 


< 


CO 


h- 


r- 




h- 


h- 


h- 


r- 


I s - 







I I I 

S?5 



l l 

_ o 

< < 



z z < So 

I I I 

CD o Q lil 



I I I I 



I I I 



S 2 

N N 

I I 

? P 

CO CO 

I I 



ft X 
Z c- 

I I 



I I 



Q CL Q. Q. 



Z O O O Z 
< Z Z Z ' 



I I I 



CM CO CO CO 




N N 

1 I 

Q -1 

Z O 

< CC 

I I 



8 3 



O uj 
Z CO 

I I 



I I I 

QCLQ.CL.Q_I_ 

z O O O z o o 



Z Z Z < CC Z CC 

I I 



_ ° S E o 

P _ F 

^ N rsj £ < 

I I I II 

_CCfLfiCCCCcc9;<CCCC 
KOOOOOcoOXOCO 



I Z L 111 



< "* < 
I I I 
I ft CO 



I I I I I I I I I I I I I I I I I I 



cc 

> o 

CQ LU 

1 I 



LncDi^coG)<_QOOLU 



N 
I I 
O CO 



I I 







■3- 



< 
CC 

o 



I I I I I I 



I I I 



O — CVJCO^-LOCOr^ 

oooooooo 



< 

I 

X 0. < 

o cc 
z z o 

1 I I 



I I I I 



N 

I 

- 1 s 

CO O 

< z 

I I 

Ol O * U) (D S 



I I 



< 
cc 
o 



o 

—I 

o 

I I 

CO o 



I I 

CQ O o LU Li. o 



Q CC 
z O 

< z 



I I I 



2 £ 



I I 



CQ < 
I I 



_ . cm n i m _ n co 

CMCMCMCMCMCMCMCMCM 



I I I I I I 



I I 



CM OJ CM 



105 



APPLE II HARDWARE 



1. Getting Started with Your APPLE II Board 

2. APPLE II Switching Power Supply 

3. Interfacing with the Home TV 

4. Simple Serial Output 

5. Interfacing the APPLE — 

Signals, Loading, Pin Connections 

6. Memory — 

Options, Expansion, Map, Address 

7. System Timing 

8. Schematics 
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GETTING STARTED WITH YOUR APPLE II BOARD 



INTRODUCTION 



ITEMS YOU WILL NEED : 

Your APPLE II board comes completely assembled and thoroughly tested. 
You should have received the following: 



a . 


1 


ea . 


APPLE II P.C. Board complete with 








specified RAM memory. 


b. 


1 


ea . 


d.c. power connector with cable. 


c. 


1 


ea . 


2" speaker with cable. 


d. 


1 


ea . 


Prel iminary Manual 


e. 


1 


ea . 


Demonstration cassette tapes. (For 4K: 1 cassette (2 programs); 








16K or greater: 3 cassettes. 


f . 


2 


ea . 


16 pin headers plugged into locations A7 



and J14 



In addition you will need: 

g. A color TV set (or B & W) equipped with a direct 
video input connector for best performance or a com- 
mercially available RF modulator such as a "Pixi -verter" 
Higher channel (7-13) modulators generally provide 
better system performance than lower channel modulators 
(2-6). 

h. The following power supplies (NOTE: current ratings 
do not include any capacity for peripheral boards.): 

1. +12 Volts with the following current capacity! 

a. For 4K or 16K systems - 350mA. 

b. For 8K, 20K or 32K - 550mA. 

c. For 12K, 24K, 36K or 48K - 850mA. 

2. +5 Volts at 1 .6 amps 

3. -5 Volts at WmA. 

4. OPTIONAL: If -12 Volts is reouired by your keyboard. 
(If using an APPLE II supplied keyboard, you will 
need -12V at 50mA.) 
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i. An audio cassette recorder such as a Panasonic model 
RQ-309 DS which is used to load and save programs. 

An ASCII encoded keyboard equipped with a "reset" 
switch. 

k. Cable for the following: 

1 . Keyboard to APPLE II P.C.B. 

2. Video out 75 ohm cable to TV or modulator 

3. Cassette to APPLE II P.C.B. (1 or 2) 

Optionally you may desire: 

1. Game paddles or pots with cables to APPLE II Game I/O 
connector. (Several demo programs use PDL(O) and 
"Pong" also uses PDLd ). 

m. Case to hold all the above 

Final Assembly Steps 

1. Using detailed information on pin functions in hardware 
section of manual, connect power supplies to d.c. cable 
assembly. Use both ground wires to miminize resistance. 
With cable assembly disconnected from APPLE II mother 
board, turn on power supplies and verify voltages on 
connector pins. Improper supply connections such as reverse 
polarity can severely damage your APPLE II. 



2. Connect keyboard to APPLE II by unplugging leader in 
location A7 and wiring keyboard cable to it, then plug 
back into APPLE II P.C.B. 

3. Plug in speaker cable. 

4. Optionally connect one or two game paddles using leader 
supplied in socket located at J14. 

5. Connect video cable. 

6. Connect cable from cassette monitor output to APPLE II 
cassette input. 

7. Check to see that APPLE II board is not contacting any 
conducting surface. 

8. With power supplies turned off, plug in power connector 
to mother board then recheck all cableing. 
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POWER UP 



1. Turn power on. If power supplies overload, immediately turn off 
and recheck power cable wiring. Verify operating supply voltages 
are within +3% of nominal value. 

2. You should now have random video display. If not check video 
level pot on mother board, full clockwise is maximum video out- 
put. Also check video cables for opens and shorts. Check 
modulator if you are using one. 

3. Press reset button. Speaker should beep and a "*" prompt 
character with a blinking cursor should appear in lower 
left on screen. 



4. Press "esc" button, release and type a "(0" (shift-P) to 
clear screen.. You may now try "Monitor" commands if you 
wish. See details in "Ionitor" software section. 



RUNNING BASIC 

1. Turn power on; press reset button; type "control B" and press 
return button. A ">" prompt character should appear on screen 
indicating that you are now in BASIC. 

2. Load one of the supplied demonstration cassettes into recorder. 
Set recorder level to approximately 5 and start recorder. Type 
"LOAD" and return. First beep indicates that APPLE II has found 
beginning of program; second indicates end of program followed 
by ">" character on screen. If error occurs on loading, try a 
different demo tape or try changing cassette volume level. 

3. Type RUN and carriage return to execute demonstration program. 
Listings of these are included in the last section of this 
manual . 
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THE APPLE II SWITCHING POWER SUPPLY 



Switching power supplies generally have both advantages and peculiarities 
not generally found in conventional power supplies. The Apple II user 
is urged to review this section. 



Your Apple II is equipped with an AC line 
voltage filter and a three wire AC line cord. 
It is important to make sure that the third 
wine is returned to earth ground. Use a con- 
tinuity checker or ohmmeter to ensure that 
the third wire is actually returned to earth. 
Continuity should be checked for between the 
power supply case and an available water pipe 
for example. The line filter, which is of a 
type approved by domestic (U.L. CSA) and 
international (VDE) agencies must be returned 
to earth to function properly and to avoid 
potential shock hazards. 



The APPLE II power supply is of the "flyback" switching type. In 
this system, the AC line is rectified directly, "chopped up" by a high 
frequency oscillator and coupled through a small transformer to the 
diodes, filters, etc., and results in four low voltage DC supplies to 
run APPLE II. The transformer isolates the DC supplies from the line 
and is provided with several shields to prevent "hash" from being 
coupled into the logic or peripherals. In the "flyback" system, the 
energy transferred through from the AC line side to DC supply side is 
stored in the transformer's inductance on one-half of the operating 
cycle, then transferred to the output filter capacitors on the second 
half of the operating cycle. Similar systems are used in TV sets to 
provide horizontal deflection and the high voltages to run the CRT. 

Regulation of the DC voltages is accomplished by controlling the 
frequency at which the converter operates; the greater the output power 
needed, the lower the frequency of the converter. If the converter is 
overloaded, the operating frequency will drop into the audible range 
with squeels and squawks warning the user that something is wrong. 

All DC outputs are regulated at the same time and one of the four 
outputs (the +5 volt supply) is compared to a reference voltage with 
the difference error fed to a feedback loop to assist the oscillator 
in running at the needed frequency. Since all DC outputs are regulated 
together, their voltages will reflect to some extent unequal loadings. 
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For example; if the +5 supply is loaded very heavily, then all 
other supply voltages will increase in voltage slightly; conversely, 
very light loading on the +5 supply and heavy loading on the +12 
supply will cause both it and the others to sag lightly. If precision 
reference voltages are needed for peripheral applications, they should 
be provided for in the peripheral design. 

In general, the APPLE II design is conservative with respect to 
component ratings and operating termperatures . An over-voltage crowbar 
shutdown system and an auxilliary control feedback loop are provided 
to ensure that even very unlikely failure modes will not cause damage to 
theAPPLE II computer system. The over-voltage protection references to 
the DC output voltages only. The AC line voltage input must be within 
the specified limits, i.e., 107V to 132V. 



Since the output voltages are controlled by changing the operating 
frequency of the converter, and since that frequency has an upper limit 
determined by the switching speed of power transistors, there then must 
be a minimum load on the supply; the Apple II board with minimum memory 
(4K) is well above that minimum load. However, with the board disconnected, 
there is no load on the supply, and the internal over-voltage 
protection circuitry causes the supply to turn off. A 9 watt load 
distributed roughly 50-50 between the +5 and +12 supply is the nominal 
minimum load. 

Nominal load current ratios are: The +12V supply load is l k that of the +5V. 

The - 5V supply load is 1/10 that of the +5V. 
The -12V supply load is 1/10, that of the +5V. 

The supply voltages are +5.0 +0.15 volts, +11.8 +0.5 volts, -12.0 + IV, 
-5.2 +0.5 volts. The tolerances are greatly reduced when the loads are 
close to nominal . 

The Apple II power supply will power the Apple II board and all present 
and forthcoming plug-in cards, we recommend the use of low power TTL, CMOS, 
etc. so that the total power drawn is within the thermal limits of the entire 
system. In particular, the user should keep the total power drawn by any 
one card to less than 1.5 watts, and the total current drawn by all the cards 
together within the following limits: 



The power supply is allowed to run indefinetly under short circuit 
or open circuit conditions. 



Under no circumstances, should more 

than 140 VAC be applied to the input 

of the power supply. Permanent damage 
will result. 



+ 12V 

+ 5V 

- 5V 

- 12V 



use no more than 250 mA 

use no more than 500 mA 

use no more than 200 mA 

use no more than 200 mA 
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CAUTION: There are dangerous high 
voltages inside the power supply 
case. Much of the internal circuitry 
is NOT isolated from the power line, 
and special equipment is needed for 
service. NO REPAIR BY THE USER IS 
ALLOWED. 



NOTES ON INTERFACING WITH THE HOME TV 



Accessories are available to aid the user in connecting the Apple II 
system to a home color TV with a minimum of trouble. These units are called 
"RF Modulators" and they generate a radio frequency signal corresponding to 
the carrier of one or two of the lower VHF television bands; 61.25 MHz 
(channel 3) or 67.25 MHz (channel 4). This RF signal is then modulated with 
the composite video signal generated by the Apple II. 

Users report success with the following RF modulators: 

the "PixieVerter" (a kit) 

ATV Research 

13th and Broadway 

Dakota City, Nebraska 68731 

the "TV-1" (a kit) 

UHF Associates 
6037 Haviland Ave. 
Whittier . CA 90601 

the "Sup-r-Mod" by (assembled & tested) 
M&R Enterprises 
P.O. Box 1011 
Sunnyvale, CA94088 

the RF Modulator (a P.C. board) 

Electronics Systems 
P.O. Box 212 
Burlingame, CA 94010 



Most of the above are available through local computer stores. 

The Apple II owner who wishes to use one of these RF Modulators should 
read the following notes carefully. 

All these modulators have a free running transistor oscillator. The 
M&R Enterprises unit is pre-tuned to Channel 4. The PixieVerter and the 
TV-1 have tuning by means of a jumper on the P.C. board and a small trimmer 
capacitor. All these units have a residual FM which may cause trouble if 
the TV set in use has a IF pass band with excessive ripple. The unit from 
M&R has the least residual FM. 

All the units except the M&R unit are kits to be built and tuned by 
the customer. All the kits are incomplete to some extent. The unit from 
Electronics Systems is just a printed circuit board with assembly instructions. 
The kits from UHF Associates and ATV do not have an RF cable or a shielded 
box or a balun transformer, or an antenna switch. The M&R unit is complete. 

Some cautions are in order. The Apple II, by virtue of its color graphics 
capability, operates the TV set in a linear mode rather than the 100% contrast 
mode satisfactory for displaying text. For this reason, radio frequency inter- 
ference (RFI) generated by a computer (or peripherals) will beat with the 
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carrier of the RF modulator to produce faint spurious background patterns 
(called "worms") This RFI "trash" must be of quite a low level if worms 
are to be prevented. In fact, these spurious beats must be 40 to 50db 
below the signal level to reduce worms to an acceptable level. When it is 
remembered that only 2 to 6 mV (across 300Q, is presented to the VHF input 
of the TV set, then stray RFI getting into the TV must be less than 500uV 
to obtain a clean picture. Therefore we recommend that a good, co-ax 
cable be used to carry the signal from any modulator to the TV set, such 
as RG/59u (with copper shield), Belden #8241 or an equivalent miniature 
type such as Belden #8218. We also recommend that the RF modulator been 
closed in a tight metal box (an unpainted die cast aluminum box such as 
Pomona #2428). Even with these precautions, some trouble may be encountered 
with worms, and can be greatly helped by threading the coax cable connecting 
the modulator to the TV set repeatedly through a Ferrite toroid core 
Apple Computer supplies these cores in a kitralong with a 4 circuit 
connector/cable assembly to match the auxilliary video connector found on 
the Apple II board. This kit has order number A2M010X. The M&R "Sup-r-Mod 
is supplied with a coax cable and toroids. 

Any computer containing fast switching logic and high frequency clocks 
will radiate some 'radio frequency energy. Apple II is equipped with a 
good line filter and many other precautions have been taken to minimize 
radiated energy. The user is urged not to connect "antennas" to this 
computer; wires strung about carrying clocks and/data will act as antennas, 
and subsequent radiated energy may prove to be a nuisance. 

Another caution concerns possible long term effects on the TV picture 
tube. Most home TV sets have "Brightness" and "Contrast" controls with a 
very wide range of adjustment. When an un-changing picture is displayed 
with high brightness for a long period ,a faint discoloration of the 
TV CRT may occur as an inverse pattern observable with the TV set 
turned off. This condition may be avoided by keeping the "Brightness 
"turned down slightly and "Contrast" moderate. 
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A SIMPLE SERIAL OUTPUT 



The Apple II is equipped with a 16 pin DIP socket most frequently 
used to connect potentiometers, switches, etc. to the computer for 
paddle control and other game applications. This socket, located at 
J - 14 , has outputs available as well. With an appropriate machine 
language program, these output lines may be used to serialize data in 
a format suitable for a teletype. A suitable interface circuit must 
be built since the outputs are merely LSTTL and won't run a teletype 
without help. Several interface circuits are discussed below and the 
user may pick the one best suited to his needs. 

The ASR - 33 Teletype 

The ASR - 33 Teletype of recent vintage has a transistor circuit 
to drive its solenoids. This circuit is quite easy to interface to, 
since it is provided with its own power supply. (Figure la) It can 
be set up for a 20mA current loop and interfaced as follows (whether 
or not the teletype is strapped for full duplex or half duplex oper- 
ation): 

a) The yellow wire and purple wire should both go to 
terminal 9 of Terminal Strip X. If the purple wire 
is going to terminal 8, then remove it and relocate 
it at terminal 9. This is necessary to change from 
the 60mA current loop to the 20mA current loop. 

b) Above Terminal Strip X is a connector socket identi- 
fied as "2". Pin 8 is the input line + or high; Pin 
7 is the input line - or low. This connector mates 
with a Molex receptacle model 1375 #03-09-2151 or 
#03-09-2153. Recommended terminals are Molex #02-09- 
2136. An alternate connection method is via spade lugs 
to Terminal Strip X, terminal 7 (the + input line) and 
6 (the - input line). 

c) The following circuit can be built on a 16 pin DIP 
component carrier and then plugged into the Apple's 
16 pin socket found at J - 1 4 : (The junction of the 
3.3k resistor and the transistor base lead is float- 
ing). Pins 16 and 9 are used as tie points as they 
are unconnected on the Apple board. (Figure la). 
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The "RS - 232 Interface" 

For this interface to be legitimate, it is necessary to twice invert 
the signal appearing at J - 14 pin 15 and have it swing more than 5 volts 
both above and below ground. The following circuit does that but requires 
that both +12 and -12 supplies be used. (Figure 2) Snipping off pins 
on the DIP-component carrier will allow the spare terminals to be used for 
tie points. The output ground connects to pin 7 of the DB-25 connector. 
The signal output connects to pin 3 of the DB-25 connector. The "protective" 
ground wire normally found on pin 1 of the DB-25 connector may be connected 
to the Apple's base plate if desired. Placing a #4 lug under one of the 
four power supply mounting screws is perhaps the simplest method. The +12 
volt supply is easily found on the auxiliary Video connector (see Figure S-ll 
or Figure 7 of the manual). The -12 volt supply may be found at pin 33 of 
the peripheral connectors (see Figure 4) or at the power supply connector 
(see Figure 5 of the manual). 

A Serial Out Machine Center Language Program 

Once the appropriate circuit has been selected and constructed a machine 
language program is needed to drive the circuit. Figure 3 lists such a tele- 
type output machine language routine. It can be used in conjunction with an 
Integer BASIC program that doesn't require page $300 hex of memory. This 
program resides in memory from $370 to $3E9. Columns three and four of the 
listing show the op-code used. To enter this program into the Apple II the 
following procedure is followed: 

Entering Machine Language Program 

1 . Power up Appl e 1 1 

2. Depress and release the "RESET" key. An asterick 
and flashing cursor should appear on the left hand 
side of the screen below the random text matrix. 

3. Now type in the data from columns one, two and three 
for each line from $370 to 03E9. For example, type in 
"370: A9 82" and then depress and release the "RETURN" 
key. Then repeat this procedure for the data at $372 
and on until you complete entering the program. 

Executing this Program 

1. From BASIC a CALL 880 ($370) will start the execution of 
this program. It will use the teletype or suitable 80 
column printer as the primary output device. 
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2. PR#0 will inactivate the printer transfering control 
back to the Video monitor as the primary output device. 

3. In Monitor mode $3700 activates the printer and hitting 
the "RESET" key exits the program. 

Saving the Machine Language Program 

After the machine language program has been entered and checked for 
accuracy it should, for convenience, be saved on tape - that is unless 
you prefer to enter it by keyboard every time you want to use it. 

The way it is saved is as follows: 

1. Insert a blank program cassette into the tape 
recorder and rewind it. 

2. Hit the "RESET" key. The system should move 
into Monitor mode. An asterick "*" and flash- 
ing cursor should appear on the left-hand side 
of the screen. 

3. Type in "370.03E9W 370.03E9W". 

4. Start the tape recorder in record mode and depress 
the "RETURN" key. 

5. When the program has been written to tape, the asterick 
and flashing cursor will reappear. 

The Program 

After entering, checking and saving the program perform the following 
procedure to get a feeling of how the program is used: 

1. B c (control B) into BASIC 

2. Turn the teletype (printer on) 

3. Type in the following 

10 CALL 880 

15 PRINT "ABCD. . .XYZ01 123456789" 
20 PR#0 
25 END 

4. Type in RUN and hit the "RETURN" key. The 
text in line 15 should be printed on the 
teletype and control is returned to the key- 
board and Video monitor 
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Line 10 activates the teletype machine routine and all "PRINT" state- 
ments following it will be printed to the teletype until a PR#0 statement is 
encountered. Then the text in line 15 will appear on the teletype's output. 
Line 20 deactivates the printer and the program ends on line 25. 

Concl usi on 

With the circuits and machine language program described in this paper 
the user may develop a relatively simple serial output interface to an ASR-3 
or RS - 232 compatible printers. This circuit can be activated through BASIC 
or monitor modes. And is a valuable addition to any users program library. 
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FIGURE 2 RS-232 



118 



PAGE : 



3:42 P.M. 



11/18/1977 
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TELETYPE DRIVER ROUTINES 



TITLE TELETYPE DRIVER ROUTINES' 

************************* 



***WARNING: 



0370 
0372 
0374 
0376 
0378 
3 7A 
037C 
037E 
0381 
0382 
0383 
0384 
0387 
0389 
038A 
038C 
038D 
038F 
0392 
0394 
0397 
3 9A 
0393 
039C 
039E 
3 AO 
3A1 



A9 
85 
A9 
85 
A9 
85 
A5 
8D 
60 
48 
48 
AD 
C5 
68 
BO 
48 
A9 
2C 
FO 
EE 
20 
68 
48 
90 
49 
OA 

DO OD 



82 
36 
03 
37 
48 
21 
24 
F8 



F8 

24 

03 

AO 
CO 
03 
F8 
CI 



E6 
OD 



9 

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
TO C 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 



TTYDRIVER : * 

TELETYPE OUTPUT * 

ROUTINE FOR 72 * 

COLUMN PRINT WITH* 

BASIC LIST * 
* 

COPYRIGHT 1977 BY: * 
APPLE COMPUTER INC . * 
11/18/77 * 



R. 
S . 



WIGGINTON 
WOZNIAK 



************************* 


TaTIMFiTaTTi T 1 "P" 


EQU 


$21 


pu 


EQU 


$24 


r* ctaTT 
L.o W Li 


EQU 


$36 


I V Hi 


EQU 


$778 


/tit r^KTT 1 


EQU 


$7F8 


l v Lf-Lt\_±Y 


EQU 


$C058 


SPACE 


EQU 


$C059 


WAIT 


EQU 


$FCA8 




ORG 


$370 


\7ERFLOW 


IN LINE 27 


TTINIT: 


LDA 


#TTOUT 




STA 


CSWL 




LDA 


#TTOUT/256 ; 




STA 


CSWL+1 




LDA 


#72 




STA 


WNDWDTH 




LDA 


CH 




STA 


COLCNT 




RTS 




TTOUT : 


PHA 
PHA 




TTOUT2 : 


LDA 


COLCNT 




CMP 


CH 




PLA 






BCS 


TESTCTRL 




PHA 






LDA 


#$A0 


TESTCTRL :BIT 


RTS1 




BEQ 


PRNTIT 




INC 


COLCNT 


PRNTIT: 


JSR 
PLA 


DOCHAR 




PHA 


TTOUT 2 




BCC 


#$OD 




FOR 


A 




ASL 


FINISH 




BNE 





FOR APPLE- I I 
CURSOR HORIZ. 
CHAR. OUT SWITCH 

; COLUMN COUNT LOC . 



WINDOW WIDTH 



; WHERE WE ARE NOW. 

SAVE TWICE 
ON STACK. 
CHECK FOR A TAB. 



IF C SET, NO TAB 

PRINT A SPACE. 

TRICK TO DETERMINE 

IF CONTROL CHAR. 

IF NOT, ADD ONE TO CM 

PRINT THE CHAR ON TTY 

RESTORE CHAR 

AND PUT BACK ON STAC 

DO MORE SPACES FOR TA 

CHECK FOR CAR RET. 

ELIM PARITY 

IF NOT CR, DONE. 



FIGURE 3a 
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TELETYPE DRIVER ROUTINES 



3 : 42 


P.M., 11/13/1977 








PAGE : 


3A3 


8D 


F8 


07 


54 




STA 


COLCNT /CLEAR COLUMN COUNT 


3A6 


A9 


8A 




55 




LDA 


#38A ;NOW DO LINE FEED 


03A8 


20 


CI 


03 


56 




JSR 


DOCHAR 




03AB 


A9 


58 




57 




LDA 


#153 




3 AD 


20 


A8 


FC 


58 




JSR 


7AIT 


200MSEC DELAY FOR LIB 


0330 


AD 


F8 


07 


59 


r _L 1\J _L o ri : 


LDA 


COLCNT 


CHECK IF IN MARGIN 


0333 






F0 


08 




6 




3E0 


SETCH 


FOR CR, RESET CH 


0335 


Hi 3 


9 1 

Z. _L 




K 1 

O -L 




S3C 


7VD7DTH 


IF SO, CARRY SET. 


0337 


E9 


F7 




62 




SSC 


#SF7 




0339 


90 


04 




63 




BCC 


RETURN 




0393 


69 


IF 




64 




ADC 


#11F /ADJUST CH 


033D 


85 


24 




65 


SETCH : 


STA 


CH 




033F 










68 






66 




PLA 






03C0 










Kii i u kin : 






60 






67 


PTC 1 . 


RTS 


.•RETURN TO CALLER 


03C1 
















68 


" ri.£jK.£j 


STY 


TELETYPE PRINT A CHARACTER ROUTINE: 


03C4 














8C 


78 


07 


69 


DOCHAR : 


PHP 


YSAVE 




03C5 












08 






70 




LDY 




SAVE STATUS. 


03C7 


AO 


08 




71 




CLC 


#SOS 


11 BITS (1 START, 1 2 


03C3 


18 






72 




PHA 




BEGIN 7ITH SPACE ( ST2 


03C9 


48 






73 


TTOUT3 : 


3CS 




SAVE A REG AND SET FOI 


03C3 










8 


05 




74 




LDA 


MARKOUT 




03CE 


AD 


59 


CO 


75 




3CC 


SPACE ; SEND A SPACE 


0300 


90 


03 




76 




LDA 


TTOUT4 




0303 


AD 


58 


CO 


77 


MA "D Vf~\TVT . 

l v iA.Kis.UU 1 : 


LDA 


MARK .-SEND A MARK 


0305 














A9 


D7 




78 


1 1 (JU 1 4 : 


PHA 


#%D7 ; DELAY 9.091 MSEC FOR 


0306 


48 






79 


nT vi . 


LDA 






03D8 












A9 


20 




80 


JJJ_i i Z : 


LSR 


#$20 




0309 


4A 






81 




BCC 


A 




03D3 


90 


FD 




82 




PLA 


DLY2 




03DC 


68 






83 




SBC 






030E 


6A 






84 




3NE 


#101 




03E0 


88 






85 




PLA 


DLY1 




03E1 


DO 


E3 




86 




ROR 


;110 BAUD 


03E2 


AC 


78 


07 


87 




DEY 


A ; NEXT BIT (STOP BITS ? 


03E3 


28 






88 




BNE 


LOOP 11 3ITS. 


03E5 


60 






89 




LDY 


TTOUT3 




03E8 








90 




PLP 


YSAVE 


RESTORE Y-REG. 


03E9 








91 




RTS 




RESTORE STATUS 



RETURN 



******** SUCCESS FUL ASSEMBLY: NO ERRORS 

FIGURE 3b 
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CROSS-REFERNCE: TELETYPE DRIVER ROUTINES 



CH 


0024 


0033 


0039 


COLCNT 


0718 


0034 


0038 


5YL 


0036 


0028 


0030 


DLYI 


0305 


0085 




DLY2 


0308 


0082 




DOCHAR 


0301 


0047 


0056 


FINISH 


0330 


0053 




MARK 


C058 


0077 




MARKOUT 


0300 


0074 




PRNTIT 


0397 


0045 




RETURN 


038F 


0063 




RTS1 


0300 


0044 




SETCH 


0330 


0060 




SPACE 


C059 


0075 




TESTCTRL 


033F 


0041 




TTINIT 


0370 






TTOUT 


0332 


0027 


0029 


TTOUT2 


0384 


0050 




TTOUT 3 


03C8 


0089 




TTOUT 4 


0303 


0076 




WAIT 


FCAB 


0058 




WNDWDTH 


0021 


0032 


0061 


YSAVE 


0778 


0069 


0090 



ILE: 



FIGURE 



INTERFACING THE APPLE 



This section defines the connections by which external devices are 
attached to the APPLE II board. Included are pin diagrams, signal 
descriptions, loading constraints and other useful information. 



TABLE OF CONTENTS 



1. CONNECTOR LOCATION DIAGRAM 

2. CASSETTE DATA JACKS (2 EACH) 

3. GAME I/O CONNECTOR 

4. KEYBOARD CONNECTOR 

5. PERIPHERAL CONNECTORS (8 EACH) 

6. POWER CONNECTOR 

7. SPEAKER CONNECTOR 

8. VIDEO OUTPUT JACK 

9. AUXILIARY VIDEO OUTPUT CONNECTOR 
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Figure 1A APPLE II Board-Complete View 
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CASSETTE JACKS 



A convenient means for interfacing an inexpensive audio cassette 
tape recorder to the APPLE II is provided by these two standard 
(3.5mm) miniature phone jacks located at the back of the APPLE II 
board. 



CASSETTE DATA IN JACK: Designed for connection to the "EARPHONE" 
or "MONITOR" output found on most audio cassette tape recorders. 
V IN =lVpp (nominal), Z =1 2 K Ohms. Located at K12 as illustrated in 
Fi gure 



CASSETTE DATA OUT JACK: Designed for connection to the "MIC" or 
"MICROPHONE" input found on most audio cassette tape recorders. 
V 0UT =25 mV into 17 Ohms, Z =100 Ohms. Located at K13 as illustrated 
in in Fi gure 1 . 



GAME I/O CONNECTOR 

The Game I/O Connector provides a means for connecting paddle controls, 
lights and switches to the APPLE II for use in controlling video games, 
etc. It is a 16 pin IC socket located at J14 and is illustrated in 
Figure 1 and 2. 



Figure 2 GAME I/O CONNECTOR 

TOP VIEW 

( Front Edge of PC Board ) 



+5V 


1 


• 


16 


N.C. 


SWO 


2 




15 


ANO 


SW1 


3 




14 


AN1 


SW2 


4 




13 


AN2 


C040 STB 


5 




12 


AN3 


PDLO 


6 




11 


PDL3 


PDL2 


7 




10 


PDL1 


GND 


8 




9 


N.C. 



LOCATION J14 
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SIGNAL DESCRIPTIONS FOR GAME I/O 



AN0-AN3: 8 addresses (C058-C05F) are assigned to selectively 
"SET" or "CLEAR" these four "ANNUNCIATOR" outputs. 
Envisioned to control indicator lights, each is a 
74LSxx series TTL output and must be buffered if used 
to drive lamps. 



C040 STB: 



GND: 



A utility strobe output. Will go 
read or write cycle to addresses 
a 74LSxx series TTL output. 



low during 2 of a 
C040-C04F. This is 



System circuit ground. Volt line from power supply. 



NC_: No connection. 

PDL0-PDL3: Paddle control inputs. 

resistance and +5V for 
resistors are provided 
prevent excess current 
ohms . 



Requires a 0-150K ohm variable 
each paddle. Internal 100 ohm 
in series with external pot to 
if pot goes completely to zero 



SW0-SW2: 



+5V: 



Switch inputs. Testable by reading from addresses 
C061-C063 (or C069-C06B). These are uncommitted 
74LSxx series inputs. 



Positive 5 - Vol t supply. To 
pin, current drain MUST be 



d burning out the connector 

than 1 OOmA 



avoi 

less than 100mA 



KEYBOARD CONNECTOR 

This connector provides the means for connecting as ASCII keyboard 
to the APPLE II board. It is a 16 pin IC socket located at A7 and is 
illustrated in Figures 1 and 3. 



Figure 3 KEYBOARD CONNECTOR 

TOP VIEW 

( Front Edge of PC Board ) 
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• 


16 


N.C. 


STROBE 
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15 


-12V 


RESET 


3 




14 


N.C. 


N.C. 


4 




13 


B2 


B6 


5 




12 


B1 


B5 


6 




11 


B4 


B7 


7 




10 


B3 


GND 


8 




9 


N.C. 



LOCATION A7 
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SIGNAL DESCRIPTION FOR KEYBOARD INTERFACE 



B1 -B7 : 7 bit ASCII data from keyboard, positive logic (high level = 
"1"), TTL logic levels expected. 

GND: System circuit ground. Volt line from power supply. 

NC: No connection. 

RESET: System reset input. Requires switch closure to ground. 

STROBE: Strobe output from keyboard. The APPLE II recognizes the 
positive going edge of the incoming strobe. 

+5V: Positive 5 - Vol t supply. To avoid burning out the connector 
pin, current drain MUST be less than 100mA. 

-12V: Negative 12-Volt supply. Keyboard should draw less than 
50mA. 



PERIPHERAL CONNECTORS 



The eight Peripheral Connectors mounted near the back edge of the 
APPLE II board provide a convenient means of connecting expansion 
hardware and peripheral devices to the APPLE II I/O Bus. These are 
Winchester #2HW25C0-111 (or equivalent) pin card edge connectors 
with pins on .10" centers. Location and pin outs are illustrated in 
Figures 1 and 4. 



SIGNAL DESCRIPTION FOR PERIPHERAL I/O 



A0-A15: 16 bit system address bus. Addresses are set up by the 

6502 within 300nS after the beginning of 0i. These lines 
will drive up to a total of 16 standard TTL loads. 



"DEVICE SELECT : Sixteen addresses are set aside for each peripheral 
connector. A read or write to such an address will 
send pin 41 on the selected connector low during 2 
(500nS). Each will drive 4 standard TTL loads. 



D0-D7: 8 bit system data bus. During a write cycle data is 

set up by the 6502 less than 300nS after the beginning 
of 2 . During a read cycle the 6502 expects data to 
be ready no less than 100nS before the end of 2 . 
These lines will drive up to a total of 8 total low 
power schottky TTL loads. 



127 



DMA: 



DMA IN: 



DMA OUT: 



Direct Memory Access control output. This line has a 
3K Ohm pullup to +5V and should be driven with an 
open collector output. 

Direct Memory Access daisy chain input from higher 
priority peripheral devices. Will present no more 
than 4 standard TTL loads to the driving device. 

Direct Memory Access daisy chain output to lower 
priority peripheral devices. This line will drive 
4 standard TTL loads. 



GND : 



INT IN: 



INT OUT: 



System circuit ground. Volt line from power supply. 

Inhibit Line. When a device pulls this line low, all 
ROM's on board are disabled (Hex addressed D000 through 
FFFF). This line has a 3K Ohm pullup to +5V and 
should be driven with an open collector output. 



Interrupt daisy chain input f 
pheral devices. Will present no 
TTL loads to the driving device. 



from higher priority peri 
more than 4 standard 



Interrupt daisy 
pheral devices. 
1 oads . 



chain output to lower priority peri - 
This line will drive 4 standard TTL 



I/O SELECT: 256 addresses are set aside for each peripheral connector 
(see address map in "MEMORY" section). A read or write 
of such an address will send pin 1 on the selected 
connector low during 02 (500nS). This line will drive 
4 standard TTL loads. 



I/O STROBE: 



Pin 20 on all peripheral connectors will go low during 
0, of a read or write to any address C800-OFFF. This 
line will drive a total of 4 standard TTL loads. 



IRQ: 



Interrupt request line to the 6502. This line has a 
3K Ohm pullup to +5V and should be driven with an open 
collector output. It is active low. 



NC: 



No connection. 



NMI : Non Maskable Interrupt request line to the 
line has a 3K Ohm pullup to +5V and should 
an open collector output. It is active low. 



6502. This 
be driven with 



Q 3 



RDY: 



A 1MHz (nonsymmetrical) general purpose timing signal. Will 
drive up to a total of 16 standard TTL loads. 

'Ready" line to the 6502. This line should change only 
during 01, and when low will halt the microprocessor at 
the next READ cycle. This line has a 3K Ohm pullup to 
+5V and should be driven with an open collector output. 



RES : Reset line from "RESET" key on keyboard. Active low. 
drive 2 MOS loads per Peripheral Connector. 



Will 
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R/W: READ/WRITE line from 6502. When high indicates that a read 

cycle is in progress, and when low that a write cycle is 
in progress. This line will drive up to a total of 16 
standard TTL loads. 

USER 1 : The function of this line will be described in a later 
document. 

0q: Microprocessor phase V clock. Will drive up to a total of 

16 standard TTL loads. 

0-^ : Phase 1 clock, complement of 0g. Will drive up to a total 

of 16 standard TTL loads. 

7M_: Seven MHz high frequency clock. Will drive up to a total 

of 16 standard TTL loads. 

+12V: Positive 1 2- Vol t supply. 

+5V: Positive 5 - Vol t supply 



-5V: Negative 5 - Vol t supply. 

-12V: Negative 1 2- Vol t supply. 



POWER CONNECTOR 

The four voltages required by the APPLE II are supplied via this 
AMP #9-35028-1,6 pin connector. See location and pin out in Figures 
1 and 5. 



PIN DESCRIPTION 



GND: (2 pins) system circuit ground. Volt line from power 

supply. 

+12V: Positive 12 - Vol t line from power supply. 

+5V: Positive 5 - Vol t line from power supply. 

-5V: Negative 5- Vol t line from power supply. 

-12V: Negative 5 - Vol t line from power supply. 
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Figure 4 



PERIPHERAL CONNECTORS 
(EIGHT OF EACH) 



PINOUT 



TOP VIEW 

(Back Edge of PC Board) 



GND 26 

DMA IN 27 

I NT IN 28 

NMI 29 

IRQ 30 

RES 31 

INH 32 

-12V 33 

-5V 34 

N.C. 35 

7M 36 

Q3 37 

<1>1 38 

USER 1 39 

*0 40 

DEVICE SELECT 41 

D7 42 

D6 43 

D5 44 

D4 45 

D3 46 

D2 47 

D1 48 

DO 49 

+12V 50 



O 



o 



25 +5V 
24 DMA OU T 
23 INT OUT 
22 DMA 

21 RDY 

20 I/O STROBE 
19 N.C. 
18 R/W 
17 A15 
16 A14 
15 A13 
14 A12 
13 A11 
12 A10 
11 A9 
10 A8 
A7 
A6 
A5 
A4 
A3 
A2 



A1 

AO 



I/O SELECT 



( Toward Front Edge of PC Board) 

LOCATIONS JS TO J12 



Figure 5 



POWER CONNECTOR 



PINOUT 



TOP VIEW 

( Toward Right side of PC Board) 



(BLUE/WHITE WIRE) -12V 
(ORANGE WIRE +5V 
(BLACK WIRE GND 



N 

5 6 

© © 

q 3 4 C 

© © 

2 1 2? 

© © 



_n_ 



U LT 



- 5V (BLUE WIRE) 

+12V (ORANGE/WHITE WIRE) 

GND (BLACK WIRE) 



LOCATION K1 
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SPEAKER CONNECTOR 



This is a MOLEX KK 100 series connector with two .25" square pins on 
.10" centers. See location and pin out in Figures 1 and 6. 

SIGNAL DESCRIPTION FOR SPEAKER 
+5V: System +5 Volts 

SPKR: Output line to speaker. Will deliver about .5 watt into 
8 Ohms. 



Figure 6 



SPEAKER CONNECTIONS 



PINOUT 



cn 

-a -a 

LU £_ 
n3 

+J O 
-£Z CO 
CD 

•i- CJ) 



DC 

> £ 
LO 0- 
+ CO 



Right Edge of PC Board 

LOCATION B14A 



VIDEO OUTPUT JACK 

This standard RCA phono jack located at the back edge of the APPLE II 
P.C. board will supply NTSC compatible, EIA standard, positive composite 
video to an external video monitor. 

A video level control near the connector allows the output level to be 
adjusted from to 1 Volt (peak) into an external 75 OHM load. 

Additional tint (hue) range is provided by an adjustable trimmer capacitor. 

See locations illustrated in Figure 1. 
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AUXILIARY VIDEO OUTPUT CONNECTOR 



This is a MOLEX KK 100 series connector with four .25" square pins 

on .10" centers. It provides composite video and two power supply 

voltages. Video out on this connector is not adjustable by the on 
board 200 Ohm trim pot. See Figures 1 and 7. 



SIGNAL DESCRIPTION 

GND: System circuit ground. Volt line from power supply. 



VIDEO NTSC compatible positive composite VIDEO. DC coupled 
emitter follower output (not short circuit protected). 
SYNC TIP is Volts, black level is about .75 Volts, and 
white level is about 2.0 Volts into 470 Ohms. Output level 
is non-adjustable. 

+1 2V: +12 Volt line from power supply. 

+5V: -5 Volt line from power supply. 



Figure 7 



AUXILIARY VIDEO OUTPUT CONNECTOR 



PINOUT 



+12V 
-5V 
VIDEO 
GND 



O 

m 



CD 
CD 
T3 



Right Edge of PC Board 



LOCATION J14B 
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INSTALLING YOUR OWN RAM 



THE POSSIBILITIES 

The APPLE II computer is designed to use dynamic RAM chips organized 
as 4096 x 1 bit, or 16384 x 1 bit called "4K° and "16K" RAMs 
respectively. These must be used in sets of 8 to match the system 
data bus (which is 8 bits wide) and are organized into rows of 8. 
Thus, each row may contain either 4096 (4K) or 16384 (16K) locations 
of Random Access Memory depending upon whether 4K or 16K chips are 
used. If all three rows on the APPLE II board are filled with 4K 
RAM chips, then 12288 (12K) memory locations will be available for 
storing programs or data, and if all three rows contain 16K RAM 
chips then 49152 (commonly called 48K) locations of RAM memory will 
exist on board! 



RESTRICTIONS 

It is quite possible to have the three rows of RAM sockets filled with 
any combination of 4K RAMs, 16K RAMs or empty as long as certain rules 
are followed: 

1. All sockets in a row must have the same type (4K or 16K) 



2. There MUST be RAM assigned to the zero block of addresses. 



ASSIGNING RAM 

The APPLE II has 48K addresses available for assignment of RAM memory. 
Since RAM can be installed in increments as small as 4K, a means of 
selecting which address range each row of memory chips will respond 
to has been provided by the inclusion of three MEMORY SELECT sockets 
on board. 



RAMs. 



Figure 8 



MEMORY SELECT SOCKETS 



TOP VIEW 



PINOUT 



(OOOO-OFFF) 4K "0" BL0CK7 
(1000-1FFF) 4K "1" BLOCK 2 
(2000-2FFF) 4K "2" BLOCK 3 
(3000-3FFF) 4K "3" BLOCK 4 
(4000-4FFF) 4K "4" BLOCK 5 
(5000-5FFF) 4K "5" BLOCK 6 
(6000-EFFF) 4K "6" BLOCK 7 



14 RAM ROW C 

13 RAM ROW D 

12 RAM ROW E 

11 N.C. 

10 16K "0" BLOCK (0000-3FFF) 

9 16K "4" BLOCK (4000-7FFF) 

8 16K "8" BLOCK (8000-BFFF) 



LOCATIONS D1, E1, F1 
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MEMORY 



TABLE OF CONTENTS 

1. INTRODUCTION 

2. INSTALLING YOUR OWN RAM 

3. MEMORY SELECT SOCKETS 

4. MEMORY MAP BY 4K BLOCKS5. 

5. DETAILED MAP OF ASSIGNED ADDRESSES 

INTRODUCTION 



APPLE II is supplied completely tested with the specified amount of 
RAM memory and correct memory select jumpers. There are five different 
sets of standard memory jumper blocks: 



1. 4K 4K 4K BASIC 

2. 4K 4K 4K HIRES 

3. 16K 4K 4K 

4. 16K 16K 4K 

5. 16K 16K 16K 



A set of three each of one of the above is supplied with the board. 
Type 1 is supplied with 4K or 8K systems. Both type 1 and 2 are 
supplied with 12K systems. Type 1 is a contiguous memory range for 
maximum BASIC program size. Type 2 is non-contiguous and allows 8K 
dedicated to HIRES screen memory with approximately 2K of user BASIC 
space. Type 3 is supplied with 16K, 2C0K and 24K systems. Type 4 
with 30K and 36K systems and type 5 with 48K systems. 

Additional memory may easily be added just by plugging into sockets 
along with correct memory jumper blocks. 

The 6502 microprocessor generates a 16 bit address, which allows 
65536 (commonly called 65K) different memory locations to be specified. 
For convenience we represent each 16 bit (binary) address as a 4-digit 
hexadecimal number. Hexadecimal notation (hex) is explained in the 
Monitor section of this nlanual. 



In the APPLE II, certain address ranges have been assigned to RAM 
memory, ROM memory, the I/O bus, and hardware functions. The memory 
and address maps give the details. 
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MEMORY SELECT SOCKETS 



The location and pin out for memory select sockets are illustrated 
in Figures 1 and 8. 



HOW TO USE 

There are three MEMORY SELECT sockets, Thcated at Dl , El and Fl 
respectively. RAM memory is assigned to various address ranges by 
inserting jumper wires as described below. All three MEMORY SELECT 
sockets MUST be jumpered identically! The easiest way to do this 
is to use Apple supplied memory blocks. 

Let us learn by example: 

If you have plugged 16K RAMs into row "C" (the sockets located at 
C3-C10 on the board), and you want them to occupy the first 16K of 
addresses starting at 0000, jumper pin 14 to pin 10 on all three 
MEMORY SELECT sockets (thereby assigning row "C" to the 0000-3FFF 
range of memory) . 

If in addition you have inserted 4K RAMs into rows "D" and "E", and 
you want them each to occupy the first 4K addresses starting at 4000 
and 5000 respectively, jumper pin 13 to pin 5 (thereby assigning row 
"D" to the 4000-4FFF range of memory), and jumper pin 12 to pin 6 
(thereby assigning row "E" to the 5000-5FFF range of memory). Remember 
to jumper all three MEMORY SELECT sockets the same. 

Now you have a large contiguous range of addresses filled with RAM 
memory. This is the 24K addresses from 0000-5FFF. 

By following the above examples you should be able to assign each 
row of RAM to any address range allowed on the MEMORY SELECT sockets. 
Remember that to do this properly you must know three things: 

1. Which rows have RAM installed? 

2. Which address ranges do you want them to 
occupy? 

3. Jumper all three MEMORY SELECT sockets the 
same! 



If you are not sure think carefully, essentially all the necessary 
information is given above. 
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Memory Address Allocations in 4K Bytes 



addretsss dedicated to 
hardwars function 

ii 

ii 

ROM socket DO: spars 

n 

ROM aoekat D8: spar* 

ROM aoekat SO: BASIC 

ii 

ROM socket ES l BASIC 
11 

ROM aockst 70; BASIC 

utility 

BOM aockst 78; monitor 



Memory Map Pages to BFF 





USED 


USED TOJt — 


COMMENTS 


ADDRESS ( ES ) 


JI 






PAJQXZEBO 

0000-00 if 


UTILITY 


register area for "sweet 16" 
16 bit firmware processor. 




VU jt L> — L> VTA' 


MONITOR 






0O4E-0O4F 


MONITOR 


holds a 1* bit number that 
is randomized with each key 
entry. 




0050-0055 


UTILITY 


integer multiply and divide 




D055-O0FF 


BASIC 






ooro- OOFF 


UTILITY 
6502 


flouting point work space, 
subroutine return stack. 




PAGE TWO 

0200=02FF 




cbiTtcter input buffer. 




PAGE THREE 
03FB 

03FB 


MONITOR 


Y (control Y) will cause 
a c JSR to this location. 

NHI's are vectored to this 
location. 




03FE-03FF 




IRQ-s ire vectored to the 
address pointed to by these 
locations. 




0400-07FF 
08O0-OBTT 


DISPLAY 
DISPLAY 


text or color graphics 
primary page. 

text or color graphics 
second a r y page * 


BASIC initializes 
LO'IEM to location 

osoo. 
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0000 



1000 



aooo 



3000 



4000 



9000 



7000 



text and color fraphics 
display pages, 8502 stack, 
pointers, etc. 



high ras graphics display 
primary page 

ii 
" 



high rea. graphics display 
secondary page 

ii 
ii 
'i 
■I 

H 



8000 



9000 



AOOO 



B000 



C0O0 



D000 



E0O0 



F000 



I/O and ROM Address Detail 



HEX 

ADDRESS 


ASSIGNED FUNCTION 


COMMENTS | 


coox 


Keyboard input. 


Keyboard strobe appears in bit! 
7. ASCII data from keyboard > 
appears in the 7 lower bits. 


COIX 


Clear keyboard strobe. 




C02X 
C03X 


Toggle cassette output. 
Toggle speaker output. 




C04X 


"C040 STB" 


Output strobe to Game I/O 
connector. 


C050 


Set graphics mode 




C051 


« text 




C052 


Set bottom 4 lines graphics 




C053 


text 




C054 


Display primary page 




C055 


secondary page 




C056 


Set high res. graphics 




C057 


" color 




C058 
C059 


Clear "ANO" 
Set 


Annunciator output to 
Game I/O connector. 


C05A 
C05B 


Clear "AN1" 
Set 


Annunciator 1 output to 
Game I/O connector. 


pdrp 
C05D 


Set 


Mil 11 LI I If- ± d L Ul dt VJULJJUL LU 

Game I/O connector. 


COSE 
C05F 


Clear "AN3" 
Set 


Annunciator 3 output to 
Game I/O connector. 
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HEX 

ADDRESS 


ASSIGNED FUNCTION 


COMMENTS 


C061/9 


Cassette input 
"SW1" 




State of "Cassette Data In" 
appears in bit 7. 

input on 
State of Switch 1 -A Game 
I/O connector appears in bit 7, 


C062/A 


"SW2 




State of Switch 2 input on 
Game I/O connector appears 
in bit 7. 


C063/B 


"SW3" 




State of Switch 3 input on 
Game I /0 connector appears 
in bit 7. 




Paddle timer 


output 


State of timer output for 
Paddle appears in bit 7. 




1 


tl 


State of timer output for 
Paddle 1 appears in bit 7. 


C066/E 


2 


M 


State of timer output for 
Paddle 2 appears in bit 7. 


C067/F 


n 3 m 


it I 


State of timer output for 
Paddle 3 appears in bit 7. 


C07X 


"PDL STB" 




Triggers paddle timers 
during 0~. 


CORY 
C09X 


n 


n 

JL 


Pin 41 on the selected 
Peripheral Connector goes 
low during 


COAX 


11 






COBX 




<3 
«J 




cocx 












c 
O 




COEX 




o 




COFX 


• 


7 




C10X 




Q 
O 


Expansion connectors , 


piiv 
L/l -LA 


If 


9 


tt 


C12X 


It 


A 


tt 
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HEX 

ADDRESS 


ASSIGNED FUNCTION 


COMMENTS 














C13X 


DEVICE SELECT 


B 




ti 


C14X 


11 




C 






C15X 


M 




D 




ii 


C16X 


ft 




E 






C17X 


1 1 




F 




ti 


C1XX 
C2XX 


11 




1 

Q 




Pin 1 on the selected 
Peripheral Connector goes 
low during P 2 . 


C3XX 
C4XX 
C5XX 
C6XX 


1 1 

11 
M 




3 
4 




Mf>TP<5 ■ 
IN (J i £iO . 

1. Peripheral Connector 
does not get this 
si pti a 1 


11 




5 
6 




2. I/O SELECT 1 uses the 
same addresses as 
DEVICE SELECT 8-F. 


C7XX 


11 




7 






CSXX 


M 




8, I/O 


STROBE 


Expansion connectors. 


C9XX 


tl 




9, 


ti 




CAXX 


II 




A, 


ii 




CBXX 


II 




B, 


ti 




CCXX 
CDXX 


n 
11 




c, 

D, 


it 
ti 




CEXX 


M 




E, 


ii 




CFXX 


ii 






ii 




D000-D7FF 


ROM socket 


DO 






Spare. 


D800-DFFF 


ii ii 


D8 






Spare . 


E000-E7FF 


■ ■ ii 

ii ii 


EO 






BASIC. 


E800-EFFF 


ii it 


E8 






BASIC. 


F000-F7FF 


ti ii 


FO 






IK of BASIC, IK of utility. 


F800-FFFF 


ii M 


F8 






Monitor. 
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SYSTEM TIMING 



SIGNAL DESCRIPTIONS 



14M: 



Master oscillator output, 14.318 MHz +/- 35 ppm. All other 
timing signals are derived from this one. 



7M: Intermediate timing signal, 7.159 MHz. 

COLOR REF: Color reference frequency used by video circuitry, 3.530 
Phase clock to microprocessor, 1.023 MHz nominal. 



0oi 

hi 

0_2_ 

03: 



Microprocessor phase 1 clock, complement of O , 1.023 Mhz 
nominal . 

Same as O . Included here because the 6502 hardware and 
programming manuals use the designation 2 instead of Q . 

A general purpose timing signal which occurs at the same 
rate as the microprocessor clocks but is nonsymmetrical. 



MICROPROCESSOR OPERATIONS 

ADDRESS: The address from the microprocessor changes during 1( 
and is stable about 300nS after the start of 0!. 

DATA WRITE: During a write cycle, data from the microprocessor 

appears on the data bus during 2 , and is stable about 
300nS after the start of 2 . 

DATA READ: During a read cycle, the microprocessor will expect 

data to appear on the data bus no less than lOOnS prior 
to the end of 2 . 



TIMING CIRCUITRY 
BLOCK DIAGRAM 



MASTER 
OSCILLATOR 


> 











TIMING 
CIRCUITRY 



SYSTEM TIMING DIAGRAM 



TIMING RELATIONSHIPS 



<7M> 

COLOR REF~^ J" 



4>2 



<±F> 1 



<±L> J 
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REFERENCE 

OSCILLATOR 

AND 

SYSTEM 

TIMING 



FIG S-3 



SYNC 
COUNTER 



FIG. S-4 



- SYNC OUT BUS — 



r 



TIMING BUS — 



-~ TIMING BU5 



VIDEO 

GENERATOR 



RG. S-11 



» COMPOSITE VIDEO OUT 



VIDEO OUT 



MRU 
AND 
BUS 

DRIVERS 



FIG S-2 



} L_ 

ADDRESS BUS 

~ n n 



DATA BUS — «► 



I I I I I I 



I I I I I T 



ADDRESS BUS — 



£l 



DATA OUT — 



8K-12K 
ROM 

MEMORY 

8ASIC 

AND 

SYSTEM 

MONITOR 

FIG. S-5 



4K/16K 

RAM 

SELECT 



DATA IN — - 



SELECT 



4K -48K 
RAM 

MEMORY 



FIG S-8 



RAM 
SELECT 



RAM 

ADDRESS 
MUX 



FIG. S-7 



c 



TO ALL SECTIONS 



POWER IN 
+ 12V 

+ 5V 

-5V 
-12V 
GND 



PERIPHERAL 
I/O 



FIG. S-9 



zrc 



— ADDRESS DECODE — 



8 DECODED 
PERIPHERAL 

CONNECTORS 



ON-BOARD 
I/O 



FIG S-10 



— DATA OUT 



J 



Q GAME I/O 



4 CASSETTE IN 

LX 



I CASSETTE OUT 

XX 



4 KEYBOARD 

rx 



» SPEAKER 



— DMA BUS 



FIGURE S- 1 APPLE II SYSTEM DIAGRAM 
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2 <ADO> 

3 <ADT> 

4 <AD2> - 



8T97 

(PINS t A 15 TRISTATE) 

11 



6 < AD4> 



SYSTEM 
ADDRESS 4 
BUS 



7 < A05> — 
a < A D6> — 
9 < AD7) — 
JO <AD8> — 



<AD£> 



>2 <AD10> - 
'3 ^AD1 1> 



4 <AD12 



6 <AD14> 

7 <ADT5> 



8 (RjW> 



FROM PERIPHERAL I/O s 

SEE FIG S-9 

40 

FROM REFERENCE 
OSCILLATOR AND TIMING 
SEE FIG. S-3 



HS 



H5 

9 



H5 

7 



H4 



H3 

ft 



H3 



H3 



H3 



H3 

9 



HA 

11 



H4 

3 



H4 

3 



H5 

13 



H5 

/3 



H4 



1 12 


9 




JO 


1 6 


It 


-i w 


T2 


H 6 


13 


*1 


(4 


-1 72 


'5 


1 S 


'6 


*1 4 


17 


"1 2 


re 


A10 


19 


A 11 


20 


s\? 


22 


A 2 


23 


E»M 


24 


.-I 14 


25 


"1* 


34 



H5 



+ SV 

I. 



AO 

At 

A2 

A3 

A4 

A5 

A6 

A7 

AA 

A9 

A10 

All 

A12 

At3 

A14 
AIS 
R/W 



VCC 



IRQ 



NMI 



MPU 

6502 



DO 



01 



D2 



D3 



D4 



05 




29 <1NH ) 
aa <T7m~> 
3' < Q3 > 
38 



RA01 

3.3K 



RA01 

_vw- 

3.3K 



RA01 
I VA » 



3.3K 



33 


3 j 




f H11 


32 


3. 




I H10 


3t 






H10 


30 






1 H11 


29 






[mi 


28 


6 <: 




1 mo > 


27 


its - 






26 


10 j 


1 H1l" 



, 3.3K 



30 

- < NMi> 29 
(RDY> 2) 



FROM 
* PERIPHERAL l/Os 
SEE RQ. S-9 



/5!S\ FROM KEYBOARD AN 
s2Bk/ J PERIPHERAL l/O's 
SEE FIG. S-9 IS- n 



- <DA0) « 
-<DaT> 4S 



DA2> <7 



DA3> 46 



DA4> 45 



TRI STATE 
v SYSTEM 
? DATA 
BUS 



8T28 

(PINS 1 A !S TRI STATE) 



3B <USER i > 
< I/O SEL) 



AVAILABLE ON 
S SO PIN PERIPHERAL 
I/O CONNECTOR 



J 



SYSTEM TIMING , 
FIG. S-3 * 



NOT AVAILABLE ON 
50 PIN PERIPHERAL 
I/O CONNECTOR ^ 



<RAS> 
<LD194> 

<Tdps> 

< COLOR REF > 



FIGURE S-2 MPU AND SYSTEM BUS 
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CLOCK IN 
FROM _ 
SYSTEM <LOPS> 
TIME 
FIG. S-3 



SYNC OUT 
<D14-14) HO 
(D14--13) H1 
(014-12) H2 
(D14-n) H3 



(DI3-12) HPI 
<D13-14) H4 
< 013-13) H5 



D13-11) VA 




<D12-14) VS 
<D12-13) VC 
< 012-12) VO 
< 012-11 ) V1 



<D1l'-u) V2 
<D11-13) V3 
<D1 1-1 2) V4 



FIGURE S-4 SYNC COUNTER 
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co " 
+ 






CO 


CO 
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CO 


*f 










/X 










/s 




/\ 


CM 




'co*! 










CO 


< 
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< 




< 
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Q 




Q 







T 

CO £ 



< 

Q 



o 


T 




CM CO 




LO 


CO 






Q 


Q 


Q 


Q Q Q 




Q 


Q 




o 


Z 




















CD 


o 
o 
> 






£n * 

O CM 












eso 


O T- 

< < 


CM 


CO ^" LO CO 




CO 




A10 


S2 


| CS1 


< 


C 


< < < < 


< 


< 


< 


O 



N. 


CO 


CO 


•» 


CO 


CM 




CO 


CM 


O) 


CO 
















CM 


CM 


i— 






>- 
< 
cc 

DC 
< 
>- 
CC 

o 

LU 



o 
cc 



LL 


l/MOH 


o 
□ 




(3) 
LL 


l/MOH 


CO 

□ 




oo 

LL 


l/MOH 


o 

LU 




co 

LL 


l/MOH 


CO 
LU 




in 

LL 


l/MOH 


O 
LL 




co 

LL 


l/MOH 


CO 
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CO 

m 

LU 
H 

CO 
> 
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"D" SOURCES ARE 
FROM SYNC COUNT 
PIG. S-4 



SCREEN 
ADDRESS 
FROM « 
SYNC 
COUNT 

FIG. S-4 




A1 




- 


A2 


E14 




A3 




^3 ■ 


74LS283 


CO 






B2 






B4 






63 






M 






- B1 


GND 


&4 



+ 5V 
1, 



HIRES f Blt-6 J - 

FIG S-11 

VA ("D13-1 ij — 

FIG. S-< 

VB (012-14) - 
FIG.S-4 



PAGE 2 CTTH> 
FIG. S-tO 




5 

C12* 
Ma Za 

74LS257 

Mb |iaj 



• SEE FIG S-6 FOR OTHER HALF 




OFC12 

FIGURE S-7 RAM ADDRESS MUX 
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FROM 



4K/16K SELECT 
TG. S-6 

... __D 
CAS 
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FIGURE S-8 4K TO 48K RAM MEMORY WITH DATA LATCH 
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FIGURE S-11 VIDEO GENERATOR 
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